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Appendix A 


PREPROCESSOR LISTING 


This appendix contains a computer listing of the Minitrack cubic preprocessing pro- 
gram, more specifically, listings of the two programs currently used in the preprocessing 
function, MIN-B and OBS-B, plus listings of the subroutines that are called by one or both 
of these main programs. 

The reader should refer to section 4, of volume 1 , on the preprocessor for an explana- 
tion of the operational intricacies of these programs. This description progresses through 
the listings, step by step, as called out by the elliptical step identifiers added to the computer 
printout. 

An explanation of the subroutines is presented in section 5 of volume 1. A technical, 
analytical discussion of the adequacy of the least-squares fitting technique applied by the 
preprocessing program and the data-compression routine is given in section 6, volume 1. 


I 



MIN-B PROGRAM 


LEVEL 1ft < l JULY ftfl > 

COMPILER OPTIONS 


OS/3AO FORTRAN M D^TE 69. •165/04 

NAYC = MAlN,OPT=00,L I NECNT= 5ft . SOURCE , BCO , NOL l ST , OFC K, LO AO , MA P , NDFD I T * ID * NDXREF 


ISN 00C1 
IS M Q Of ) A 

ISN Of 05 


INTEGER r N0 .CSTAi C ANT , ANTO^HUPO , M I NO , SE C 0 . S AT » O ATE « KF A • KFft 

— jwr&ftc p .. i r,u a of-^-I-vf-ar. *. i l i nk i 

REAL NSCO *NSMO. PI D i 

RC A l,*« ST -AT-l-Q > 

REAL I0TF1, I0IF2. IDIF1* IDIF4, IDIF*? 

Q.E. Ai. N.SM . AU» C ,-N&.g PQ-..W.S «&Q-4Q4-E-> N SF 1 . • NSF .J2 . Al SS 3^> M SSA^MSES ' 

0 I MENS [ON FHflltSr) , FR OP < 50 > * F R 03 < SC* ) * FR 04 ( SO I 

OINFNS I QN-STAT IOM 21-tKFUM-I ?> • KFR< - t -g-» , F WM ( 1 ? I . CLE I rfM( 1 24-^EWC< 12-) *CLE- — 

IHC( 12) ►FWFF0< 12 ) ,NSM( 1? ) , CLNSMI l 2 > « NSC ( 12) ,CLNSC( 12 ) » NSFEQf 12 ) , NSF 
gpg( 4 2 1, 1 P JA-l-4-a4-*4-444TI^ft-»-rCl < 4 34^-C?-( 4ft ) ) , 04( 4. St T C5<A& )-. C 6 < 4 6 ) 

3«C7(4B>.C8<4Q)«KSA!!>(50)t K?TA( 12) ,F*FPOt 12 > ,TIM<31 > 

r>t KF H SIOM 31 ) , gWMP( 31 > . F W CO t il ) . NS M Q( . _U 3) ) .H O i 

XPD( 3 l > , ANTCX 31 ) , ST AD< 31 > , E EW F < 31 ) , ENSFl 3 L ) , IOAYDI 31 1 » A ST I 

— X 1 0 ) . OAT-F4 4 24^-C P< 4*4 - 

01 MENS ION A C»T A ( 3 ) « ATMODA< 7) , AOUP( 7) , I AL05E t 7 ) , I ARATFI T) « l A ACC { 7 ) ♦ l 

X) . inUfiC^t ,ISFC( 6 I .LCDS!*) .MCOS(ft) , irNH(4 ) , [MNO(4> * 1ANSF£< 


ISN 0013 
- l - SN -434-4- 


ISN 0017 
—IS N QO l fl- 
ISN 0019 


ISN 0024 
ISN 0025 


ISN 0027 
-4- SN 0 0 23- 


DIMENSION OAT A { 1 0 C > 

L-UC4-£AL*-l--A-ST-A-*-ARMOD A * AIHJR + -I ALQ- Bfc . EA R AXE. , I 6 AFC . t 6V4M E R ♦ 1 A MCF3 , I BLO S- 

XE , I SR ATE. 10 ACC* I SNMFH * I ONCER, I OUR, ( S= C . LC OS * M COS • IENO, I NNO 

LOGICAL*! QATA.-£>£Z*01N*SPX» 1AMP- I A NSFE * 1 A ^ . WFE , IF IT 

DATA PFR .ASK* SPA, POL ,EO,F) ,F2,F3*F4,FS*F0 . F7 , I A MP , SLA * P EZ , 0 1 N p SPX/ 

1 Z 4Q4 C .A0 40pZSrAQAQA C ,Z434Q40 4 0*ZQ 7A04 0M Q 4 2 G 5 4 C A P AS , Z C l A S A O A ft . 7 C ? A T A 

2 0 4 0,ZC. 1404040 , ZC4 4 040 40 • ZC5404Q40 . Z C 6 4 04 04 0 , ZC 74 04 0 40 . Z SO , 7. 6 l 404 04 

30«-ZAO»ZFfl»Z4n/ — _ - 

130 REAO( 5, 76e,ENO = 2,ERR = 130 > I DT, 1 GRADE , 1FI X 


JL-C 

— - — 

INPUT STATION CONSTANTS 

DU 3S — J= 1 * 1 O 

754 RFADT S, RO, FND=2,FRR=7ft4 )STATIO(J),KSTA<J),KFA(J),KFn<Jl,EWM(J)*CL 
_ J 1 *EWCU1 . ri i ! *) - gwcnrw J > ^N SM t J ) .CL NSM l J) . NSC < J ) ,C L 

XN SC \ J) r NSFFO( J) i N5FP0 ( J ) , DATE ( J ) / 

M p iTF. J i J , . E .fin > AT rnt n.itsul l i -b CF fl f n.KFRf U * F m : < l J i . C L£ W« 4 ( J 1 . E MC f J > 

1 *CLFV»C ( J » .FWFFOU) ,FWFPO( J) .NSMt J) , CLN5M< J ) , N SC ( J ) , CL N SC ( J J ,NSFEQ< 

2 J > . N SFPOLJ ) ,DATE< J ) 

30 FORMAT! A^.X, r?, 14, 14, 3X,F 4.3* F3 • 3 *F A, 3, F3p 1,X*F 4 , T,F4 *3, 3X,F4-3,F3 

X. 3 .EA. 34X13-4-3 .X. F4. ?,F.A.a, SX , lftl 

5RO FORMAT { X , Aft * X f I ? * X , I 3 , X * 1 3 * 3 R 4 F 4 , 3 * F 4 # 3 t F 4 * 3 , F 4 , 3 * X , F 4 4 3 * F 4 4 3 * 

X 3X .F4 . ^.FA. T.F4 .3 , FA . 3. X > F 4 ■> ^ 4 ! A.».i < v 2X 4 I ft ) ■ 

INPUT STATION COFFF, 

DO . 3ft— 

JL=JM+M 

T .qr, P{Tflr>< S (, t t Pn n^.FCP=7^mN T t JL ) , I S T At JL ) ♦ CO < JL I *C I ( JU.CPf II ) .F3 
X1JL).C4(JL) ' 

taa tt£AOi t . rft f. n i.rrt u i. r . s/ n i 

SB 1 FORMAT f OX ,4< X .R 1 2.BI ) J 


ISN- 

ISN 

0C31 

0C32 

36-CONX-lNUF 

J M— J M FA 

,X,I2,5(X*F12a8)) .. 


I SN 

LSN- 

00 34 

nr. 3R 

35 CONTINUE 

UIPT TF( A.^fl 1 

1 ( KSTAI I I i 4 1 1= 1 * 1 1 > 



500 FORMATC X, I l (X. I 2 > ) 


/ n "fe 


PAGE 002 


INPUT SATELLITE ERNST ANTS 

78 3 PF AC( 5 . 5?, END = 38 , F PR -7 9 3 )KSMO( J1 ,FRQl ( J ) ^FRO^t J) ,FHQ1( J) ,FRQ4 l J ) 

f*S-P0W AT ( 15 » 1 9X T Ffr,3 r P8 *•? . 

WRITE ( ft'5»2tKSAID( J) ,FPO l < J ) ,F*02< J > J) , FRO* t J> 

-56 ? FO^ AT4^-l 5-r*9X ,Fft • 3,XvF«, 3, X 3r-XrHi T J . X ) 

1F{KSAID(J)>17*38,37 

3 7 CONTI N UE 

38 K SA TC T — J ~ 1 

— — RE-AD OAT A C HE CK— FEO- -A MPERS-ENF- -****■ ♦ * ' ff Z T- 

3 9 PEADt 0*60 ] ,END=1 , ERR =39 ) (OAT A< I J , 1 = 1 ,£5 ) 

- 601 P APMAT(ftii A) ) 

IFfDATAf 1 > *NE. JA^PIGO TO 39 

ft* 1 MOAT A T 7 KCQ.GRX ) GO TO A 3 ... 

IF( DATA* B) . FO ,SPX)GO TO 83 

! F-(-DA-T^4A4— ElN.F^.G-hGO- TO -85- - — 

SAT = HDArA<3)-ruN>*lCC0 0*> + (<DATA<4>- Q lN>*tC00.)F(<DATA<5>-BlN)*J0 

» f. ( D A -tEM-fe J-P I N ) * l-C-> > *(D A T A ( 8 » -8- I - N i ...... 

GO TO BA 


X?.> + <(DATA(M-BlNi7l<?.>MD4T4(8>-8TN> 

GCl- -T-Q— 84 — 

53 SAT = <(DATA(?)-8lN)*lC000*) + ( C DATA < 3 ) — F I N ) * 1 00 C • ) + (( DA T A ( 4 ) -8 1 N > * l 0 
XQ. ) - M 1DVTA4 5) -R lN)»10 . )■+ ( f>A T A T 6 > — B t-N > 

94 DO 60? 5 » SO 

IF4 5 AT-». grt . KSAM>(W> )GO TO A 03 

602 CUNT INUF 

- WQ-f-TE ( — 6-.-63S ) 

635 FORMAT ( 1 9H SA IO NOT fN TABLE \ 

1 33 FDRMAT ( X , A J « IS) 


603 IF( IF l x ,EO* ? )GO TO 131 

1 VP-0 

IL TNK=0 

DO ?62 — T Q=9 . 65 - 

fF ( DAT A ( t 0) .FQ. SPX >GO TO 762 


IL [ NK -DAT A ( [QI-RIN 

76? CONTINUE 

766 WR[TE( 6.765) 

WRITE* 6. t 9 3 > I AMP. SAT 


1SN C0B6 

TSN 0059 
-I SN- 099 9 — 
I SN 0092 
-I-SN OCPT3— 
I SN 0094 


763 I YR = ( < DAT A ( TO 1 - B T N ) * 1 0 . 1 * ( 9 A T A ( I Q+ 1 ) -9 1 N ) 

X + ?)-niN)Tl 00 0. > F{ ( DAT Af I Q * 3 > - 0 | N ) * 1 0 0 ♦ ) <- ( ( DA T A { I 0* 4 ) -B I N > * 1 0 . ) + ( D A 

X TAM - 0 » P)^P1N) . 

1 F< IL INK.NF. 1 )GO TO 740 

— 

GO TO 744 

-74-0— I F C l L I NK -r NF »P. ) G O -TO 74 I 

pr:qsfro?( mi 

TO 7 A A . J 

741 r F{ I L INK .NF . 3 )GR TO 743 


continued 



PAGE 003 


ISN 0100 
— l-SN— 0-1 04- 
ISN 010? 

isn-^o 10 . 3 - 

ISN 0104 
ISN 0 10 5 
ISN 0106 
-4- SN -4 40 *- 
1SN 0109 

ISN 0110 


I SN— 01 12- 
ISN 0113 


-A SW- -0 11-7— 
ISN 0119 
-ISN -04-2-1 • 


r ^*FO = F9Q4 ( M ) 

T-O — 7-4-4- 

131 FKF0=F3QHM> 

I4r9 - 1 pt 

1 YFAR=tYP*lC0OC 


ISN 0137 


ISN 0141 


ISN 0145 


ISN 0 1 4ft 


ISN 0151 


ISN 0153 
I S N 0 1-5-5— 
ISN 0157 

1 

ISN 0159 


ISN 0162 
-ISN-OOAA- 
ISN 0165 


IF{QATA< 45) -NE.PEZJGG TO 767 


IF(DATA<57) «NE»PEZ)5C1 TO 767 


DO 605 K - l # 4 


IE ( D A T A ( K ) — B I N • LT »0)6O TO 767 


605 CONTINUE 


IF ( OATA(K>-BIN.GT.9)GO TO 767 

ir f - P A T A | K C > GO — TO— 76 7 

D AT A( Kl =DAT Af K ) — fl I N 

6Q6 r DETINUE 

DO 607 K = 14*17 


IFCDATAOO-EIN.LT^OIGO TO 767 

DAT A I K 1=QA.TAC lO -H t.N 

607 CONTINUE 



continue^ 

















PAGE 005 


ISN 0239 
ION OGAQ 
ISN 0241 
I S N 0343 
ISN 0243 
I g N 0 2^ 4 
ISN 0245 


ISN 0249 
ISN --©- 260 - 
ISN 025 ! 


CEWF5 = D/1000 » 

D - OAT ft ( 10 >4 IOC 

CN5F1=D/1000, 

P— O A T A ( 23 > »10C 

CNSF2=d/1000. 

p=O AtA( 36) ♦ 1 0C 

CNSF3=D/1000. 


CNSF4=D/1000 
- A T A .<-6 3 > A | 
CNSF5=D/1 000 

p-DA - T -A- C - P© 4 » 1 

CNSM = D/30C . 



ISN 0253 CNSC=D/I00. 

ISN 0255 WRITFCl ! • 50 l ) IAMP, SAT, C ST A , ST A T I O { L > ,ILINK, (YEAR 

ISN 025* H01 F3RMAT(X,A1 , I«i r K T l ^ f v f f » , f i 





ISN 0257 CANT=DATA<54) 



I SN 

0259 

43 CEWM = FWM(LH-CEWM 

— FWriLt f 

r sn 

0 ? 6 I 

CN 5 MsNSM(L)+CNSM 


I SN 0271 - 
I SN 0272 
ISN a 2 73 - 
ISN 0274 


ISN 0275 
I SN-Oi ^ f - 

ISN 0279 


ISN 0252 
ISM 02 R 3 - 
I SN 0254 
X-SN 02 as- 


NARROW BAND TRACKING FILTER * * *** A A * ** * A ** *** ** * A A A ** ** A * * ♦ A * ***** 

i.fro inn--. 0 - . . ... 

AST < I )=SPA 

GO TO l&A 

161 I O t F - 4 0 


GP TO 164 
163 IDIF=.120 
AST< 1 ) =PFR 


iniF2=CNSF3-CNSF2 


I DIF 4 =CNSF 5 -CNSF 4 
_CNSF l =C N«iFUf f (g.tlrnifvi 
CABLE LENGTH INEQUALITIES 


* * ( l.DXE-4— 1 D 


ISN 0257 

C F W C— ( ( CLEWC(Ll/4B46 ) A( I36.5-FRFQ) >*CEVC 
rNSM=f«ri 1 TA^-FRFiDJ+rM^M 



r SN 0239 

CNSC=( C CL NSC ( L ) / • 346 ) *1 136.S-FREQ) J +CNSC 
— ..UiJ.rTFni.ftiM 



ISN 0291 

636 F09MATC55H CALIBRATED PHASE READINGS, 5 POINT FITTED FINE PEAOlNGSl 

1 

continued 








I-&N-0294 

FSN 0295 



ISN 0297 


ISN 9 290— 
ISN 0299 


WRlTEdl, 6 39) 


X CNSF ) 

( I 1 SMt ^M^C i CFWFI , CN S F 1 

ISO FO^MATT 6( X*F1 Q.6) J 

V W1T &4 H .649)- 

540 FORMAT ( 74H HRMNSC EWFINE CWMEDM FWC0R5 NSFINE 

- — XHOMr.PM N 5C0 4 » T t ) 

REAP DATA WITH FOWMAT CHECK * * A A * A * * A A A * ** * * t * * * ♦* * * A A * A * 'A **> * ** 

,-*© 

K-JK 

CQ«3 ? «-HSO~ T l> — I-2Q 

621 ft E A f> t 9*60 1 *ENI>=1 • ERP=6?l > (DATA! 1 1 , f = t . 65 ) 


confmu©d_ 

I 


ISN 

0305 

tfin TO 124 

i op ( F # Pi A T A 4 _n/> .Cfi. y X <Xn- 

_f 1-2-3 

1 SN 

0308 

z C rL i ' v‘7 ttTti / i “ v • cm ■ a f vV 

go rn i?4 


-f-SN- 

9*9-0- — 

12 3- I F-<-D A-T-A-I-50 W£Q . S»X-VGU 

re-120^ 

T SN 

031 1 

[FtPATMl KEQ.IAMPIGO 

TO 36 


ISN 0325 
Wl— 0 3 A7- 
ISN 0329 
{-SN- 0-3*4— 
ISN 0333 


ISN 0336 
l-S M 0 3 3M 
ISN 0339 

| f ( frl T( / t Q 

ISN 0341 


ISN 0345 
IS N 0 3 6 
ISN 3347 
4-SN 0*4-S- 
ISN 0350 
I S N- R-3S 3 - 
ISN 0353 
4-5N 0354 
ISN 0355 
ISN -0357 
ISN 0359 

I O ~ 3^0 

ISN 9361 
-I S N — 0-3 6 2— 
ISN 0364 
I SN — 0-366— 
ISN 0367 
I S 03 6 ^ 


IF! OAT A I 4 6) *NF ♦PCZ ) 60 Tq 621 

IK(DATA < 53 ) . NE -.P&Z-1GO T-S-6 21 

TF( OATA< 57) .NE.PEZ I<jH TO 621 

-H=*0 A T A < 4 5 )-*vtE . P&7-4-GO T-R-621 

OH 622 J— 1 i 4 


IF ( O 4 T M J )-BIN»LT *0 JGD TO 621 
62? CONTINUE 


lF(OAT4< J >-RIN.GT*9)G0 TO 621 


O A TA I J 1 =D A T A I J J -R I N 

-62 3 -*^NT 1-NUF- 

on 6? 4 J = 1 4 * 1 7 

I F- 4-&A T A <-J4— F I N w-GT . 9IGO- TO 62 4 

[Ft DAT A( J )-B IN.LT .9 )Gn TO 621 
P A T A t J I ~OAT A < U ) — S*- IN 

624 CONTINUE 

00—62 5 -J^4-9.25 

[ F ( DAT A ( J 1—3! N * GT • 9 ) GO TO 6?1 

{ F { DAT A ( J ) ~ PI N . LT -^-M^T- TO 62 4 

0 ATA( J)=OATA( Jl-FIN 

636 CONTINUE 

on 62 6 J = 27 t 30 

In F -t O*TA< J4 ^n l N * GT . 9)GO TO 621 - 

1F( DATA! J )-FU N.LT .0 >G0 TO 621 
O A T A t Jl = O A TA< — 

625 CONTINUE 


contfnuad 












ISN 0435 


D=DATA< 62 >* 100+DATA! 63) * 1 04-DATA < *4 > 


VO 


ISN 0437 
- I 5f+— ft+3* - 
ISN 0439 

ISN 0441 


ISN- 0 4 43 

ISN 0444 

l-SN 044 5 - 

ISN 0446 

B4-&W- 

ISN 04 4 8 

hSN - 0 4 4 9 

ISN 0450 

I SN 0 45 ! 

ISN 0452 


ISN 0453 

I S N 04 54- 

1SN 0455 

HrN -0+56 

ISN 0457 

IT,N 0 4 5 5 

ISN 0450 
ISN 04 60 


ISN 0461 
ISN 0463 


ISN 0464 

— IS N 0 4 6 6 

ISN 0467 


ISN 0468 

ISN 0470 

ISN 0471 - 

ISN 0473 

— 1 gf i j 04 7 4 

ISN 0475 

HSN-^476 

ISN 0477 

I-SN— 0 4-7-8 — — 

I SN 0470 

I SN 04SI 

ISN 0432 

fSlM-44*T* 

ISN 0 4 34 

t-SN 0 4+5- — 

I SN 0486 

I3N 0407 


END-DATA! 65) 


1 03* 1 


101 ANT = 57 « 


10? A NT = 46* 

10 3 T I 'M ( ' <) ■ < ( 0 0 , ) + ! 6 0 . 44 4- 1 - WH-M-H - 


FIT FlVF FINES EACH LINE 


CALL NORM AL(IDIFJ) 


CALL NORMAL! I DIF 2) 
- IO!F3 - E M r^ l cwr 3 


CALL NORM AL ( I DIF3 > 


CALL NORMAL! I D I F 4 > 

t DTF5— ! < inlFl+!0lF?+IDlF34t0tF4)/4. 


COUNTE R OFLA 


w * 


ECWF(K) = f EEWF t K ) — ! .C5*ID1FS4EWF3> 1 
-+DI FH-=NSF 3 -NSF-l 


CALL NORMAL! IOIF I f 

10 I T !) - NSF -3-NSF-3 


CALL NORMAL { I Dl F2) 


CALL NORMAL! IOIF31 
-tO-If 


CALL NORMAL! T OIF 4 1 


tOIF5=iriP|Fl4!DlF2+ID!F3MDlF4)/4* 
— F H - -T FR- P€4^ A- ¥ - < T - |- M g I — — 


ENSF(<>=ENSFCK)-C . 054 ! 0 |F5*NSF 3 1 

_ WRITS! 11 <* 1- 5 1 ) H O m ( *->-» M 1-M04K ) , Sf CD ( K 

X* ) »NSMO< K. ) * NSCOIK) 

_ - 3 - 5 - 1 — Ft3 »j H+ M X. ia . IH ,-l-g*+*-! 6<-F-H> , fe , X> > ) 

41 CONTINUE 

-e DATA M S 0 . CO MPLL TC t start smooth [ n G * 


120 SL-.Ol 
A 5 r 4-6 1 -SR A - 


K-K-l 

— H= < K-. LE» rOOCJ T -O-^O 


GO TO 782 

7 Si ? WRI Ti~ < 6 , 7 4 11- 


781 FORMAT! ?7H LESS THAN 5 LINES OF DAT 
K2-K-1- - 

GU TO 78 


7-3 2 - JK^K- 


[ “{ 4NT*E 0.57- ) GO TO 90 


90 C.-WFl-CFWFl FFWFPD(L) 

— -<-H5F5^N5F l +N5F PtH-b-l 

AST ( 2 > = POL 

— GO-TfJ- 1-? I 

61 CEMFl=CFWFl+FWFFClf L> 

eN -> f i -CNfin < mofco!l ) 










continued 



ISN OSin 23 IF ( I T7M *NE. ?0 I GO TO 24 

~f~S N 0 6 2 0 I S = 1 E-M 

tSN 0521 GO TO 20 

I O N 0 fig ft ? 4 ir ( ITZ M » * C* 6 0 )Gn tq a s 

ISN 0524 1F=IF+1 


ISN 0S26 
I 0 f ' j 0 Zf 0 


25 IF( 1TZM .NE, 120 )GD TO 26 
- ~F G s» 1 G » 1 


ISN 053? 
IT i H 0 5 33 


ISN 0536 
ISN 0530 


ISN 0540 
-f-SN-0-54r3 


ISN 054B 

IG N 0 55 0 


ISN 0551 
IS N 0 552- - 
tSN 0553 


■■ 00 > 60 TO 20 


I H - I H + 1 
- GO TO 20 - 


>C CONTINUE 

1 T Z N M AK 0 1 [ f) f 1 C i lOf I L ^ 


IFm.EO. IT7MJGO TO 200 


r F( 10. EO- ITZMtGO TO ?02 
IF C-f-E^^.1 T ZM> GO -TO 203 
I FC IF *EQ . ITZM )GO TO 204 
-HH-IG .EO^-H^W-TGO^FO- 2 05- 
I F ( IH.F.Q . IT7N )GO TO 206 


T 1 L 1-1 . 

*9+> — T O 2 0-T— 

2r i AST [ 3 ) — F2 
— HLl o - 1 . — 


ISN 0555 

ION 0 556 


GO TO 207 

4 GTI 


continued 





ISN 0557 


!SN 0559 

ES N 0 5 6 0 

ESN 0561 

ISN 0 56 2 

ESN 0563 

ESN 0565 

-1 S N- 6 566 

ESN 0567 

-I-5N- -056-0 

ISN 0569 

1SN 0571 

1SN 0573 

-1-5N 057 4 

ISN 0575 

ISN 0577 

T SN -057 e 

ISN 0579 

- ESN 0 550 

ESN 0581 

ESN 0563 

ESN 0535 

— E-S-N — 058 6 

ESN 0537 


IS N 0 5 0 3 

ESN 0539 
ES N 05 90 
ISN 0591 

IS N 0 5 92 - 

?SN 0593 


4-9R- 

I SN 

0594 

0595 

ISN 

0597 

0598 


J SN 0599 
ISN 0601 


ESN 

0603 

{ r;f4 

-£H>04 


ISN 0606 
t - G N — 0 -6- O - 7 - 
I SN 0603 
t - S N— 0 60 9 
ISN 0610 


PAGE 010 



GO TO 5 8 Part Step 24 

5 ? WH TTF- f 1 1 « 5 31 

53 FORMAT EACH FAST COURSE CHANNEL EXCEEDS 100 COUNTS > |. 


, T < 6) 


RATF=0. 


54 


-GO TO— 5 8 
WRITE! 1 t ♦ 55) 


AST! 6 > = F2 


» 0D-— COUNTS--) 


A 

l 


5 ATC - 0 ■ 

GO TO 59 

56-» D I T g < 1 l * 574 

57 FORMATE 4 1H NOVTH COURSE CHANNEL EXCEEDS 
AGT-I 6 I -F2. 


Part Step 43 

100 COUNTS ) I 


RATE=0- 


% 


— TO a O 


804 WUITEf 1 1 *805) 
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ISN 0887 
I BM o ae* 
ISN 0889 


CALL ZERO(4. 
CALL 7.ER D<7< 


IEWMER, IAWMER) 
-^ E W CE * t I A W CC R > 
rNLOBE, I8L0BE) 


oonffncrttf 


ISN 0891 


CALL 2ER0I7, 
C A LL ZCROt7 i 


r l- E R AT - E , IA RA TE> - 

I NR ATE « I SPATE ) 

ACC -T taacc I 


CALL ZERO I 7 , I NACC • IBACC ) 


— QtepT 4 ) 


CALL 7ERO<6« I NSFE, I ANSFEI 
.' C~ALL ZC RO (A i I SNMEfti IBNMER ) — 
CALL ZEROtA, ISNCER , I ONCER ) 


ISN 0898 


AST! 4 ) = SPA 

A 5 TI 6H» S f A 

I ECARSt SCI . GT, ,05) ASTI6] =F| 

—tT 1 t*r9 S <-LEWMER4-« GT^rSO ) A ST C 6 ) ^R - 
I F I t ASS ( IEWCER) . GT . 50 > A ST ( 6 ) =F l 

N&R TH -S OUT H OR A BE 

tF< A8SISF) ,GT.,05)AST < 4)=F2 

TF| I A8S( 4SNCER) •GT ,50 )AST<4 >-F2 

1 F+AS T46 > w-E-Shp SP A ) CO T 0 - 7 5 9 

IFC AST(4J ,CO.SPA)C.O TO 759 
A ft T<feV=F3 



AST ( 4 ) =F3 


[COAOE , FQ . n on TO 761 


ASTI 6>=SPA 

A-&T. ( 4-l^SPA 

761 CALL ZERO! 3, K, 


t 5 W R I-TE-f 1 5^75 3 V £ A TIVtL I-N K . A ST-W OASTA( I = 2-^-3 ) •ASTI 04 * I A<4rAST-(-6->-rA— 
XSTI 31 , I F I T , AR MO 0 A , AOUR , t ALOBE, TAP ATF « I A ACC, I AEWF C , I FNO, IAWMER, I AWC 



«R tTE( l t .7501SATT, TL I NK , A ST ( 1 I , < AS T A ( I t ,1 = 2,4), AST < 2) . I AO • A ST I 6 > . A 

xer.lccjs 

XSTI 3 1 , 1 FI T, ARMODA, AOUR, IBLOBE. I ORATE • IBACC. I ANSFE , I NNO , I9NMHP, I9nC 

XF ^M CQS * 

WR ITFI 1 1 ,75^) SATT, JLtNK.ASTl 1 ) , I AST A ( I) ,1=2.3) , ASTI 2 I , 1 30 • A ST I 4 ) , A 
XSE43) r f c i T -, r , AR H RO A , - AqUR , I F LORE . tqnATF . I 8 -AC-C-r-l-ANSF^-, I 


1 

(s^g) 


{-SN-9927- 


XER, MCfJS 
7**9- FQ-R-M A-T-4-X , TT^X ,+-4, A-4r2 4 1 , At . 
X 1 , 4 A 1 , 4 A I , 8 A l ) 


-7^-J — F - OR M AT < I 7 > X > Ii . At , gAt . At . 11 , A1 , A1 . 3A1 , 7A1 . 7A I . 7A1 . 7A1 . 7A1 ,6 ^ > 1 A t . 


ISN 0932 
- I S N 00 43- 


X 4 A I , 4 A 1 . 9 A I 1 

WRITE! 1 1 »2|7)SAT p ST AT TOIL) , ARMODA , I OUR, I SEC , MCOS, AST! 2 ) 

GO TO - 7 7M- ■ * 

217 FORMAT! X,l5,X,A6,7Al»5Al,6Al.29X.8At,3X,Al,Il) 


— 


= ga.tisii 


e£ 2 £L= 


GO TO 39 


ISN 0936 

^ C Q 0 7 


30 W RITE! 6 . 31 ) 

31 FORMAT ( 17H CAL, LINE PARITY ) 




ISN 0938 
■ ISN 0030 


604 DO 60 JZ=t,6Q 
JV-QZ 


Aux i Haiy^ta !»m«n fs 

for loops and cycling - 
and some error messages 
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LEVEL 16 1 l JULY 68 > 


OS/36 0 FORTRAN H 


DATE 69- 165/04*20 .37 


COMPILER OPTIONS - NAME= MAIN* OPT -CO . L 1 NEC NT ^58 * SOURCE* SCO* NOL I ST ♦DECK* LOAD *MAP*NQEDIT* 


ISN 0004 
ISN 0006 


XN*IOT) 

R^4L»e-e€ LS0^5 A* Fl r AU PH A y -Be j r A-f-&AMHA H>Ei^TA^TAy-*-RA RP A t X -YN9ftM^TNO«M- 

OI MENS I ON 8(4*5 > * A { 4 * 5 > * T ( 32) * XY( 32 I * XYNORM( 3? > ,TNQRM(32) 

DO- L 'I^-I-rA ■;• 

DO 1 J= l * 5 


L-dto+i >/2 



RAPPA = XY< D-XYCLI 


X YNORM ( I I=RAPPA 


A ( l *2)=A< l*2)*TAU 


A ( l * 4 ) ■= A < l ,4>+T AU**3 


A{ 3*4 )=A< 3*4 H-TAU**5 


At 1 ,5)-A( 1*61 fRARPA 


At 3*5 »~A( 3*5) AR APPA+T AU**2 

— A L 4 *- S 4 = -A<-4 * 5 > + - RAPPA»T -A L l »»3 - 

10 OELSQ=riAPP4**2 + DELSQ 

Fr7-A< £ }~A< i t - — — 

A< 2*3 > — A ( 1 * 4) 



A ( 2, 1 > “A f 2,5> 

A(-3*-M=A<-3*54 

At 4* 1 )=At 4*5) 

.*4^-1 

DO 20 K=l*4 


ISN 0040 
ISN 0042 


DO 15 J=N.S 


T F ( N— 6 112* 21*1 1 

L2— Dfi-?^ -I = N*4 

DO 20 J=t*5 


21 DFLT 4 — ^( 4 , 5 ) 

G A MM A~= R {-3 *-54-“-P E-LT4 *&+ 3 * 4 -) 

6ETA=8< 2*6 >-0ELTA*O( 2, 4 ) -GAMMA *8C 2,3) 


S ALPHA = ALPHA 


sGamma^gamma 


^aAMAAA* A4-3* 1-1 -fl£U-TA.*AUf-l L>/3U 










PAGE 002 












PAGE 002 


ISN 0056 A( 1 ,3)=A( 1 '3)+TAU**2 

13 N OO^T M> M)-A(i iA)tBAP>»ft 

ISN 00*55 A <2*31 =A < 2 * 3 ) + T AU**3 

ION 00H 9 A( ? f 4 > «M - a - r 4) +R AP P AATAU 

ISN 0060 4(3*3> “ A ( 3*3) *TALf**4 

I SN 006 ! -A (3 r * ) = M 3* »> « R APP A » T AU * + g 

ISN 006? r>ELS0 = RAPP4**?+DELS0 




LEVEL 16 ( t JULY 6fl t DS/360 FORTRAN) H DATE ' 69.165/04*21*13 


COMPILER OPTIONS - NAMF- MA I N, OPT=OQ , L l NFCNT =56 , SOURCE. BCD, NDL I ST ♦DECK. L 0 AD . M AP* NDE D I T* I D. NDXREF 

1 3N 0 0 0 ? l U^ O UTl l ^ IDBrtfrN f TCWt 1 1 A i R AT E , L> , — 

ISN 000 3 DIMENSION A I 3 1 } * TFM( 3 1 > 

ISN 000 * -K = I — l — — 

t FCRATE.GT.O, >A ( 1 )=A( 1J+1 , 

-FmATF, LT.Oi)f(ll^m I. — 

on 10 J- 1«K 


ISN 0005 
+S-N-ODO^- 
ISN 0009 








LEVEL 16(1 JULY ft8} 


OS/360 FORTRAN H 


DATE 69. 1 65/04 ,21 , 2S 


COMPILER OPTIONS - NAMF= M A I N, OPT = 0 O , L I NEC NT - 58 , SOURCE * BC O , NOL I ST , DE C * , LD AD . MA P . NQED I T * I O . NOXREF 

1 f l l ll Og p SUO ^ OUTtNg gr R QlMiH H UAtt g A * 

ISN 0003 DIMENSION OIVI7J 

ION 000 A I N TEGE R Dl -V — - 

ISN 0005 L0GICAL41 PLUS, Ml NUS , ASK. 1C ( 1 0 > , ARE. A ( 80 ) 

- ISN 0 0 0 0 -DATA -P LUS , M I N US, ASK , I-FT-+ > rt^ir 2 ) , IET-3 MG < 4 },-( C< S > t l Ci 6 > , 1<H~7> *-*&-& 

X), IC (9)«IC( 10>/740,Z60,Z5C,ZF0,ZF| ,ZF2, 7F3,ZF4*7FS,ZF6,ZF7,ZF8,ZF9 


ISN 0007 DATA D I V ( 1) , D I V < 2 > .O I V < □ ) , D I V < 4 ) , D I V t 5 > , D I V ( 6 ) , D I V ( 7] / 1 0000 00 ♦ 1 0 00 

— xeo , ioooOfiooo , io[> , io,i/ - 

ISN 0000 AREA(I>=PUJ5 

TEr N- - 0 - 0 09 — — 1 P( l 

.ISN 0010 ? AREA ( 1 ) =MINUS 

1 G N OOt I f ?N «» I A OD( I - I H > 

ISN 0012 ?. IJ=9-N 

f sn o e- i ^ 

ISN 0014 J=N-I 

JS N QOIO - DO 4 -- HU-H 

ISN 0016 I TFMP= I IN/0 IV( l J) 

I fj M 00 17 [T( f Tr N P . LC«9i ) GQ TO 6 

ISN 0019 ARFA<K)=ASK 

t- sN o e go GO TO 5 — — — 

ISN 0021 6 AREA! K > - I C( ITEM P+ 1 ) 

LS N 09 -Pg 5 -1 IN= I4A4-T IT^EMP*©-TV( l-J-M 

ISN 0023 IJ=IJ+1 

r S N - <H) J? A K ^ K + t 

ESN 0025 4 CONTINUE 

1 S N . fl . 0 36 — . -flFTUflM 

ISN 0027 END 








OBS-B PROGRAM 


LEVEL 16 ( ' JULY 58) 


DATE 69,1 66/07 « 5 


COMPILER Options - NAME- MAIM* OPT =00 ,Ll NEC NT -56 • SOURCE « BCD , NDL I ST * DECK * L 0 AD * MAP* NOE D IT* ID* NQXREF 


INTEGER HOUR,SAT*SAlD.HP,MN.BEG*END»HRR*MNN r 

- R E AL»8 S T AT f n — 1 f 

0 1 MENS! ON STATICM 1 2 > , KF A ( 1 2 1 , K FB I 1 2 ) . E WM ( 1 2 > , CL EMM ( 1 2 > ,EWC< 12>.CLE f 

- 1 W C t l 2 > ■ ♦ E WFf?3( 12 1 . NSM t lg ) * eLNS M f 1 2 ) * NS<M~ 1 2 )~rCtrN S C t~l 2TvNS F E Of 12>-*WSF f 

2P0C 1 2 ) * I ST A ( 4 8 ) * I ANT ( 48 > , C 1 t 48 ) ,C2 < 4 B > . C3 ( 4 8 ) * C 4 f 43 > , C5 ( 48 ) *C6 < 4 8 ) 


D I MEM 5 f ON AST ( I 0> * DATE I 1 2 ) .CO f 48 ) , FftQ|( 50 > * FRQ2 (50) ,F«03<50 > ,FRQ4f 

— 5TSO J -- 

O 1 MENS f ON A ST At 3)* ARMODM 7> . I0UR(5) *ISECC6> ,LCOS(R) ,MCOS(8> 


ISN 0016 
-TSN-OO tT — 
ISN 0018 


LOGJCALM BLANK 

LQCtCflLO I — A H MUPA, T UUH . T S E L . LL TI S . M CD3 . CftN T , P3 « S P A* t L* 

OAT A PO .SPA ,SPX/ZD7.Z40,Z4 0*040 40/ 

DAT A— Ft rF 2* F ?* F 4, r 3* F eT pT /ZC l A04O4 OtZC 2 404040’S ZC340 4 0 4 0 * ZC 4 4 04040,- - 

X2C5404Q40.ZC6404040.ZC7404040/ | 


T60 F ORMAT ( X* I2.6X+I11 


221 FORMA T < 4 K * 1 2 J 

222 FORMATt 1 OK, ^NUMBER OF DATA POINTS WANTED • .12 1 


INPUT STATION CONSTANTS 

7 90 RE A B( Ehr8 0 + ENO - 2 * F ftRg 700)GTATI0<J ) » K3T A ( J )-*KFfrHM « XF9TJ ) * C WN < Jl ,CL 
XEtfMt J) .EWCt J) .CLEWCt J ) . EtfFEQt J) • E WFPD ( J ) *NSM( J> .CLNSM ( J > . NSC( J ) . CL 

xwse< J > * Nsr g Qt J ) * N3 FPO f 3~ T* PAT E 

80 FORMAT! AG, X, 12, 14,14, 3X * F 4 , 3 » F3 . 3 ♦ F4 , 3 , F3 . 3 . X * F 4 . 3 , F4 . 3 * 3X , F4 - 3 , F 3 . 


WRITE! 6*580 )STAT IH( J» ,KST A ( J ) , KF A C J ] ■ KF R < J ) .EWMfJl, CLEW M { J ) ,F-WC( J ) 
t . Cir wet J) *F\ f FEQ ( Jh E W FF O t J 1 >NSMT~J> J l * N S C f J ) t CL N SC < J) 4 N3 F£Q( 

2J).NSFP0(J) 


* F4,3,3 X ■» F 4 • 3 . 


XF4.3,F4.3,F4, 3,X#F4. 3 , F4 . 3, 2X , I 6 > 


7B1 READJ 5,81, END-2,ERR = 78 I I I ANT ( JL > , t ST A ( JL),C0<JL>,ClfJLl.C2(JLl,C3 

XT-JL) *C »<-Jtr) — 

81 F ORMAT (4X»A1«X«I 2* 5(X*E12»9) ) 


SI 1 FORMAT! 4X. A1 , X, I 2*5(X,E15. B) J 


( -Jt-K C 6 <-*tr* • C-7 { JL > * 


68! F DR M A T f 9 X » 4 ( X ♦ E 1 5 , 8 ) J 


WRITEtG . G81)C5f JL) ,CG ( JL) ,C7{ JL 1 .C8( JL 1 


WRITE (6,500 )UST«( 1(1 ,1 1 = 1,1 ! 1 


INPUT SATFLLI 


783 READ ( 5* 82. END = 33 , ERR =70 3 1 KSA I D ( J ) , FRO l < J > *FRQ2('j ) * FRQ3 < J ) . FRQ4 ( J ) (Stop 5 


; cgnfi p nM4 















ISN 0176 


t-O 


TSN 017« 
TS N 01 T9 — 
ISN 01*0 

T SN 0 1 ftl 

ISN 01*? 

T SN 0 164 

ISN G l 86 

i sn otfts — 

TSN n [ R9 
f SN Ot O O — 
ISN 01^1 

I SN P i " a 3 

tSN OIOS 


ISN 0106 

ISN 0 I ■) *7 

ISN 0199 

ISN 0203 
ISN 0206 
ISN 02™ 
ISN 0212 


ISN o?n 
I SN 0 2 14 

TSN 0216 
I SN 0217 
ISN 021* 

ISN 02 2" 

ISN C27? 
TSN 022 i' 
I SN 0224 


ISN PgZS 

TStr 0 226 

ISN r P27 
fSN--C 22 “ 

ISN 0229 

r yw r ?T * 

ISN 02 U 

TSN Ofr Bg- 

ISN 023? 

TSN 02T4 

ISN 02 3S 
T SN f g 


continued 


A/V-A+I 9WRATF* JT ) + < EWACC* JT**2 ) 4- C FTWD * JT**3 1 
= H + ( S V - A < H * J 1 ) + < SNALITJ 19* 2 1 M * >NU*J l W 1 > 




continued 















ISN C?9£ 


3 F01MATC2SH CONST ANTS READ IN c RROP ) 

! * vn trgrr r — si<? FNO-r-trE---i!s 

ISN 029F HFWIND 

ISN 0 <^9 r 


ISN 0300 


3TTT1 

FW 


Error Message 
and 

Program TerminaH 








LEVEL 16 ( 1 JULY 681 


0S/360 FORTRAN H 


DATE '69.166/07 *52*32 



COMPILER 

OPTIONS - NAME - MAIN* OPT -00 * LI NEC NT = 58 * SOURCE. BCD* NOL l ST .DECK. LGAD*MAP * NOED l T • 10. NOXREF 


ISN“ 

TSN 

DOG t 
0003 


bUHMUUIlNE ULUUN1 l lUft Ibl 

01 MENS ION I A{ 1?) 


ISN 

c 

0004 


DATA 14<l>*IA<2>,IA<3l*IAt4).IA(5>* |A(6)»IA(7),IA(B),IA(9>. 


1 I A< 10 1 > TAt 1 1 1 < i AT 1 21 

1/0*31 «59. 90,120,1 51 » 181 , 2 t 2, 2 A3 * 273 . 30 A , 334/ 

C STM " 

ISN 

WJ3 

0006 


JbUWSO 

i YR=ioAre/ioooo 


rSTT“ 

ISN 

UUU t 
0008 


—rsTO^C Tg*TF-TTYR-*100UU M / 1 UU 

fOA= 1 OATE— T l YR* ! 0000 >-< 1MD+1 00) 


I SN 

0009 
00 10 


JSUM = JSUM&T At IMOTE TPA 
1 SUM = 0 


rsrr- 

I SN 

UL'l 1 

0012 


I Cl'J = 0 

J-l 


ISN 

I SN 

UCIH 

0 C 1 4 

1 

I R0A=T65 

t F ( ICn,EQ.O>GO TO 4 


T15N- 

I SN 

-00 16— 
0017 


J-J&l 


rsrr 

[ SN 

00TS-' 

0020 


T P ( J.FO-;4 IbH TO 2 “ 

l F{ J *LF * 4 )GO TO 3 


rstr 

I SN 

-0022 

0023 


I RDA-364 


rstr 

I SN 

0024 

0025 

3 

tRDA=IROA&l 

i ro=tcn-i 


rsrr 

I SN 

-otrgff 

00?7 

4 

flP TO 1 1 

LYR = 0 


T-SN- 

I SN 

o &2 a 

0029 


— F Y R - 1 Ytt 
SYR=T YP/4 


rstr 

I SN 

“00 30 

00 32 


1 F { IMf)*LT ■ 3 ) GO TO 5 


rstr 

I SN 

■ 0 f!1f* 

0036 

5 

LYR-L YK&1 

IOATE=I SUM&JSUMOLYR 


f-sn- 

I SN 

■ 00~*ft ‘ 

0037 

ft 

— RETURN — 

STnr» 


— i-sn 



END 




LEVEL 16 < 1 JULY 661 


OS/360 FORTRAN H 


DATE 69 p 1 66 ZQT * 52*35 


U> 

On 


COMPILER OPTIONS - NAME s M AIN, OPT=00 , L I NECNT =56 , SOUR CF, RCD, NOL l ST ,DFCK, LOAD , MAP,N3ED IT, ID, NOXREF 

iSN U U 2 SUHHUU ? I NC 7fzt*v (N, it N , AR E A ) ; 

ISN 0003 DIMENSION DIV(7> 

isn op e * mrccgp o tv — — — 

ISN OOPS LOGIC AL * l PLUS, MINUS, ASK *10(10 )♦ ARF A < 80 } 

T-SN-O-Ottfi DATA— PttJST « I NVS ♦ ASK,tC < 1 ) , IC ( 2 > ,-fCt^-)TT C < 4 ) • I C f 3 > « tC C 6 ) • I C t T tVt C < 8 " ' “ 

X> ♦ IC<9) . IC< 10 J/ZA0,Z60,Z5CiZFC ,ZFl,7.F?, ZF3,?F4, 7.F5,7F6,ZF7,ZF8,ZF9 

^ 

ISN 0007 DATA Q I V < \ > , D I V I 2 1 , D I V i 3 ) ,0 1 V < A ) , D I V { 5 > ,0 I V < 6 I , H I V < 7> / 1 0000 00 , X 00 0 

— x -trtnrro o c~o tt 3-0- 0 ,1 00 ,1 o t tt — ~ — 


isn oooe- 

-T 5N- 0009 
ISN 0010 

- rsN 00 r t- 

ISN 0012 
T SN 001 3 
ISN 0014 
■ I S N 00 15 
ISN 0016 
T SM 00 1 T ■ 
ISN 0019 
I SN 00 2 0 
ISN 0021 

ISN 0023 

I SN 0 0 > 4 ■ 

ISN 0025 
f S N- 06 g /r - 
LSN 0027 


AREA! 1 )=PLU5 

I F I MNH , 2, 2 

1 ARF A( 1 )=MINUS 

1 T N- T A T T St T T N l 

2 I J =9— N 

— K=n> — — 

J M— 1 

&1i— * ITT 1-5-J 

ITEMP=I I N/D T V ( I J) 

r> M tT gwF;tf. q . ) fto T cr - fl- 

AREACK > =ASK 

TQ s 

6 ARFA(K)-TC( ITFMP+l) 

-6 — f tN= f I N— ( ITE M P ^ O I V 
r j= i j + 1 



A CONTINUE 

END 



Appendix B 


MINITRACK HARDWARE 


THEORY OF OPERATION 

The Minitrack radio interferometer performs angular position measurements by phase 
comparisons between multiple pairs of antennas of known separation distance. Antenna 
pairs are aligned along east-west and north-south baselines. 

The accuracy of angle measurement increases with the length of the baseline between 
the antennas; two pairs of antennas have baselines many wavelengths long to obtain good 
angular resolution. These are called fine antennas. Ambiguity results because the phase 
meters repeat their reading cycle every wavelength of path difference. This is resolved by 
employing several progressively shorter baselines to produce fewer integral numbers of 
wavelength changes while the satellite is within the antenna pattern. These are termed “me- 
dium” and “coarse antennas.” Each antenna pair feeds a channel in the receiver, yielding six 
separate phase measurements. Ambiguity antenna information identifies the integral num- 
ber of path differences on the fine antenna (fig. B-l); data from the fine antenna define the 
direction cosines of a satellite and are the basis for the orbital calculations. 

ANTENNAS 

The antennas are a slot type with ground screens. They are pedestal mounted, parallel 
to the ground plane, precisely positioned geographically, and accurately leveled (fig. B-2). 
The antenna beam is fan shaped, the plane of the fan being perpendicular to the long dimen- 
sion. The fine antenna array produces a fan beam 76° (north-south) and 1 1° (east-west) at 
the 3-dB points. This alignment will accommodate low- and medium-inclination equatorial 
orbits. The stations have a second set of fine antennas producing a fan beam with the wide 
dimension of the fan in the east-west direction. This configuration is adapted to high- 
inclination orbits. The equatorial or polar tracking modes are selected by switching to the 
desired set of antennas. The ambiguity antennas have a beamwidth of 78° (east-west) and 
108° (north-south) at the 3-dB points. Antennas feed the receivers through coaxial trans- 
mission lines. 
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Figure B-1.— MHz ambiguity-resolution antenna. 


RECEIVER 

The Minitrack receiver is a seven-channel, triple-conversion superheterodyne instrument 
tunable over 136 to 138 MHz in 1-kHz steps (fig. B-3). Six channels carry satellite informa- 
tion; one channel is reserved for system calibration. A low-noise (3 dB or less) preamplifier- 
converter is connected to each antenna. Each preamplifier-converter has two outputs ena- 
bling certain ambiguity antennas to be used in more than one combination. 

A radiofrequency calibrating source is used to check sensitivity, noise, and phase-shift 
characteristics of the receiver. An attenuator provides calibrated signal levels covering the 
dynamic range of the system. 

Separate AGC generators furnish control voltage proportional to input signal levels. 

One unit controls the fine channels and another unit controls the ambiguity channels. Dif- 
ferent AGC response speeds may be selected, and manual gain control is included for re- 
ceiver alignment. 
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P = POLAR ORIENTATION 
E = EQUATORIAL ORIENTATION 


SF 


E 



W + N = EW MEDIUM 
E + S = NS MEDIUM 
C + E = EW COARSE 
C -I- N = NS COARSE 



P 


EF 


3.5X = 25.31ft 
4X = 28.93 ft 
23X = 166.337 ft 
28.5A= 206.114 ft 


Figure B-2.— 136-MHz Minitrack antenna field. 


MEASUREMENT AND DATA SYSTEM 

Phase meters provide phase comparisons to the accuracy needed and furnish a perma- 
nent record of this phase-angle per time information. The phase meter inputs are the 100- 
Hz detected signals plus noise and the 100-Hz reference signal developed by the local oscil- 
lator. The phase relationship between the output signals and the reference signal is the 
difference between their respective antenna pairs. These are processed by narrowband 
filters, amplified, and applied to analog phase meters and a reference pulse generator. 

The signals are reshaped into triggering pulses that control gates whose widths are pro- 
portional to the relative phase between the signal and reference. The outputs of the phase 
meters are dc voltages proportional to gate widths and thus to phase differences. Analog 
outputs are available for all channels, fine and ambiguity, and are also displayed on panel 
meters. 
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Figure B-3.-Block diagram of the 136-MHz Minitrack interferometer system 

















Analog data and AGC voltages from the fine and ambiguity channels of the receiver are 
recorded on a Sanborn recorder. Precise resolution of the fine data is furnished by a digital 
phase meter, which gates a 100,000-pps pulse train to a three-decade decimal counter during 
the time between a reference pulse and a signal pulse. East-west and north-south fine data 
are read digitally five times per second. Data-readout time is synchronized with clock time 
to an accuracy of 100 jus. A 1 00-Hz precision signal, continuously variable in phase, is used 
for calibration. 

The time standard drives a digital clock that gives time in days of the year, hours, min- 
utes, and seconds for the digital recording unit. AGC levels from the receiver are presented, 
ambiguity information from both medium and coarse channels is sampled once per second, 
and the fine channels are sampled five times per second. All data are punched on a five-level 
perforated Teletype tape. 

MINITRACK OPTICAL TRACKING SYSTEM (MOTS) 

The equatorially mounted astrographic camera used for periodic aircraft calibration of 
the interferometer system has been adapted for optical tracking of brighter satellites up to 
the fifth magnitude. The camera has an ultralinear / 5 .0, 40-in. focal length lens and uses 
8- by 10-in. spectroscopic plates affording an ultimate star-resolution accuracy of better than 
1 arcsec over an 1 1° by 14° field of view. The camera tracks the star field, thus permitting 
stars as faint as 1 1 th magnitude to be photographed. 

The station serial time code is used to actuate a solenoid that moves a plunger to dis- 
place the film plate within its holder. The satellite photographs as a trail of light against a 
star background interrupted by breaks corresponding to time-code pulses. The photo- 
graphic plates are compared to star charts, and preliminary reductions are made at the 
tracking stations. Whenever possible, photographs are taken while the satellite is in the 
main antenna beam of the Minitrack interferometer system, and the corresponding radio 
records are mailed to GSFC along with the photographic plates. 

SPECIAL PROBLEMS 

It is beyond the scope of this report to describe in detail each electronic chassis of the 
system. Much of that information is available from other sources. 1 Any functional descrip- 
tions, transfer functions, or nonlinear analysis beyond that already in print would require 
extensive laboratory and bench testing-tasks much removed from the intent of this effort. 

Nonetheless, csrtsiii obssP/titioiis came to our attention in the process of our analyses 
and on-site inquiry that are worth mentioning here. 


l Bendix Corp,: Instruction Manual for 136 Me Minitrack Interferometer System. Vols. I and II, Bendix Radio 
Division, 1965. 
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Transmission Lines 


Each tracking station employs semiflexible, 50ft coaxial transmission lines between the 
antennas deployed on the field of the facility and the preamplifier converters in the elec- 
tronic racks inside the building. These transmission lines are commercial grade, 7/8-in., 
Neoprene rubber covered RG-254/U, with air (gas) dielectric. Our investigation indicates 
that the lines used in the installation of the Minitrack stations around the world were pro- 
cured from different manufacturers. Fortunately, all 7/8-in. coaxial cable at any site is 
from the same manufacturer. 

The difficulty, however, lies in the fact that the velocity factors of the coaxial cable 
from different manufacturers range from 0.83 to 0.96. At first glance this would appear 
not to be a problem. One could argue that the most important criterion is that the velocity 
factor for the cable at any one site be constant under a wide range of environmental condi- 
tions and that the line exhibit a good characteristic of phase stability. Because the transmis- 
sion lines are of equal length, the absolute value of the velocity factor is not important, pro- 
vided, of course, that both lines for the interferometer pair come from the same manufac- 
turer’s process batch and have the same propagation delay time. 

Unfortunately, such arguments are flawed. The reader will remember that all fine- 
antenna transmission-line pairs were cut to the same length; this, therefore, poses no prob- 
lem. At many sites, however, the pairs of transmission lines between respective sets of 
ambiguity antennas are significantly different in length. The effect of this differential is 
supposedly corrected in the preprocessing program MIN B. (See pp. 42 and 50 in vol. 1 
and p. 2 in vol. 2.) The reader will observe that a constant said to include the coaxial-cable 
velocity factor is part of the equations of the inequality calculation. This constant is written 
as “.846.” If the velocity factors of all transmission lines at all stations were the same, 
namely 0.846, there would be no problem. Unfortunately this is not the case. Thus, the 
cables (or the preprocessor) introduce error in the tracking equations. 

At this point, we cannot say just what magnitude of error is being introduced by this 
effect. Such a determination would require considerable field and laboratory effort. Cor- 
rection of this differential velocity factor effect would require field measurement and modi- 
fication to the preprocessing program. It will be noted that the ultimate angular tracking 
resolution of a Minitrack interferometer facility is primarily dependent on the fine-antenna 
system, specifically, the spacing of the fine interferometer antenna pairs. The theoretical 
angular resolution of the ambiguity antenna pairs is much less than that of the fine-antenna 
system. This, of course, is to be expected from the nature of interferometry. The ambigu- 
ity system has the sole function of pointing out which fine-antenna phase segment the 
spacecraft is operating through. A little leeway in the ambiguity system is not important 
insofar as the system continues to indicate the correct fine-antenna phase segment; that is, 
the correct zero-phase cone angle. We suspect, however, that this is not the case at those 
stations having unequal ambiguity transmission lines whose velocity factors vary from the 
standard 0.846. The error introduced would be a step function; that is, when the differen- 
tial velocity factor effect is operating, it causes an error which is a multiple of 1000 fine 
counts. This, we believe, is a serious problem. 
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Another set of problems related to the transmission lines include drying and pressur- 
izing the lines. We found, for instance, that an unadvisable purging procedure is being used 
at some of the tracking sites. It has been maintained that as long as dry-nitrogen pressure is 
kept on the lines and the lines will hold their pressures, the lines are dry. 

Dewpoint measurements made in the field showed that in each test case nitrogen 
highly saturated with moisture was purged from the lines while dry nitrogen was being in- 
troduced at the other (building) end. Further, it was found that in some cases the purge 
plug at the antenna ends of certain transmission lines were sealed with black tape and sili- 
cone rubber compound. Other transmission lines were found to be stopped up with gas- 
barrier-type bullet insulators instead of having the perforated type. This latter condition 
prevented the dry gas from passing into the power-splitting networks and baluns . 2 

Antenna Switches 


At certain tracking sites, the solid-state coaxial switches were inadequately grounded . 2 
These solid-state switches consist of passive, lumped-constant components and back-biased 
diodes. They are well designed and exhibit characteristics of high phase stability. "They re- 
place the old Ledex-type hard-contact coaxial switches used in Minitrack earlier. In some 
of the tracking sites, the new switches were merely set in place over the holes in the old 
Ledex switch cabinet with no attempt to securely ground the case of the switch to the 
cabinet. 

Such a condition may be introducing severe errors in the accuracy of the phase- 
measurement process, how much cannot be ascertained without field and laboratory stud- 
ies. We found that it was virtually impossible to attain repeatability of the antenna voltage 
standing wave ratio measurements when taken through the inadequately grounded solid- 
state coaxial switches. 

Phase Centers 

Investigation of the hardware-development work done on the Minitrack antennas re- 
vealed that little, if any, effort was directed to identifying the region of the antenna phase 
centers. There is reason to believe that the significant displacement of the phase centers 
from the geometric centers of the fine antenna arrays is introducing error into the Minitrack 
system . 3 

INVENTORY 

The following pages are reproductions of a typical Minitrack station equipment inven- 
tory. Slight variations from facility to facility will occur, but, by and large the hardware 

2 D. Watters: “St. Johns Minitrack Facility Inspection.” Memorandum, Contract file for NAS5-10694, GSFC, Sept. 
3, 1969. 

3 Control Systems Research, Inc., has a paper entitled “Minitrack Beam Switching” that attempts to identify the 
phase-center displacement problem and recommends a means for correction. This paper is available to serious investiga- 
tors upon request 
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complements are the same. The forms that follow were prepared to assist in the process of 
generating an accurate Minitrack inventory. They are designed to enlist the services of field 
technicians in the gathering of data. 
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Appendix C 

SYSTEM CALIBRATION 


Each Minitrack station is calibrated once or twice a year to obtain constants and coef- 
ficients that are used in compensating the system equipment. Such compensation is done, 
in part, at the respective worldwide tracking facilities. The remainder of the compensatory 
adjustments are achieved through the Minitrack preprocessing computer program. 

The techniques employed in the calibration of the Minitrack system use an astro- 
graphic camera at each tracking site. This camera is mounted precisely at the intersection of 
the fine baselines. An aircraft with a high-intensity flashing light is employed in the proce- 
dure. The aircraft is equipped with a radiofrequency beacon transmitter operating in the 
Minitrack frequency spectrum. At night, while the high-flying aircraft is being tracked by 
the Minitrack station, the astrographic camera is made to photograph the flashing light 
against a fixed known star field background. 

The constants and coefficients of calibration are derived by comparing the known posi- 
tion of the aircraft beacon transmitter (and flashing light) with the instantaneous positions 
of the beacon as defined by the Minitrack station. The process of obtaining the calibration 
constants from the information imaged on the astrographic camera plates and the reduction 
of the data to meaningful terms is accomplished by detailed use of precision measuring 
machines and the general-purpose digital computer (IBM 360). The purpose of this section 
is to introduce the reader to the mechanics of the computer reduction of the astrographic- 
plate data that ultimately define the respective calibration coefficients. A previously un- 
published description of the operations and functions of three computer programs used in 
the calibration data reduction process is published here. Additionally, a listing of the pro- 
grams is provided for review and reference. 

Readers unfamiliar with the Minitrack calibration procedure should refer to several 
documents already in print. Among these is the excellent description of the Minitrack cali- 
bration system 1 by Berbert, Oosterhout, Engels, and Habib and a paper on the reduction of 
the Minitrack astrographic plates 2 by Good, Berbert, and Oosterhout. These documents are 
recommended for an understanding of the program descriptions that follow. The basic 


1 J. H. Berbert, J. D. Oosterhout, P. D. Engels, and E. J. Habib: “Minitiack Calibration System.” Photograph. Sci. 
Eng. 7(2): 78-83, Mar.-Apr. 1963. 

2 Emily W. Good, J. H. Berbert, and J. D. Oosterhout: “Reduction of the Minitrack Astrographic Plates.” Photo- 
graph. Sci. Eng. 6(6): 324-327, Nov.-Dee. 1962. 
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information in these articles will not be repeated because such effort would be redundant; 
they are important to understanding, nonetheless. Our emphasis is directed toward the 
more detailed, hitherto unpublished descriptive material. 

The reduction of the calibration data must be keyed to the fundamental star positions 
used for the reference grid on the calibration plates. Optical images of the strobe light 
mounted on the calibration aircraft are shifted by tropospheric refraction from the atmos- 
phere between the aircraft and the ground station, whereas the optical images of the stand- 
ard stars are shifted by refraction from the entire atmosphere. The fundamental star 
positions quoted in the star catalogs are corrected for this refraction from the entire atmos- 
phere; equivalently, they are the true positions or “zenith” positions. Therefore, the optical 
images of the aircraft must be corrected for tropospheric refraction to deduce its true or 
zenith position. 3 In this manner, the difference in plate coordinates of the images of the 
aircraft and stars yields the difference in their true coordinates. By comparing the 1 36.5- 
MHz radio position of the aircraft determined from the standard reduction of the inter- 
ferometer data and the optical position of the aircraft for the same instant of time, the 
calibration procedure is established. For commensurability, the radio position must also be 
corrected for the tropospheric refraction from the atmosphere between the aircraft and the 
ground station. 

The calibration computations are performed by three computer programs at the 
Physical Science Laboratory of New Mexico State University, Las Cruces, N. Mex. These 
programs in the order of use are DR01 J, astrographic plate reduction; DR01K, PROOF- 
READ; and DR01E, antenna-field error models. Each of these programs as supplied by the 
Physical Science Laboratory is described in the next section. A listing of the calibration 
computer programs is given at the end of this appendix. 

DR01J 

Problem Definition 


This program is designed for reduction of Minitrack astrographic plates or PACT data. 
The objective is to compute east-west and north-south Minitrack parameters versus time 
for all associated antenna systems. 

Plate Reduction 


A flashing light aboard an aircraft, offset a known amount from a radiofrequency 
source, is photographed against a star background. Updated star catalog positions and plate 
measurements can be used to find plate constants that can be used with the plate measure- 
ment of any image to yield the direction of the line between the camera and the object. 


3 This correction for the optical radiation between the aircraft and the ground station is from F. O. Vonbun: Cor- 
rection for Atmospheric Refraction at the NASA Minitrack Stations. NASA TN JM448, Aug. 1962. 
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When the object is the flashing light, the offset coordinates can be used to compute the 
direction to the radiofrequency source at the corresponding time. This direction then allows 
computation of the desired Minitrack parameters. 

The star positions updated to the time of plate exposure and the Cartesian coordinates 
of the images with respect to the approximate principal point must be known. There can be 
up to 75 stars. 

The plate constants we wish to solve for are the coefficients f in the follow- 

ing equations: 


£ = a + bx + cy + dxy + ex 2 +fx(x 2 + y 2 ) (C-la) 

rj = a' + b'x + c'y + d'xy + e'y 2 + fy(x 2 + y 2 ) (C-lb) 

Here x and y must be referred to the approximate principal point whose plate measure- 
ment is x c ,y c . The variables £ and rj are standard coordinates that can be found from the 
star position as follows. Denote the right ascension and declination of the star by a and 
5" , respectively, and of the approximate principal point by of and S c , respectively. Then, 




cos 8* sin (a* - of) 


(C-2) 


sin (8* - 8 e ) - sin 5 C cos 5* [cos (a* - of) - 1 ] 


n = 


D 


(C-3) 


where 


D = cos (8* - 6 e ) + cos 8 C cos 8* [cos (a* - of) - 1] (C-4) 

The plate coordinates of each star image are measured from one to five times. If more 
than three readings are taken, the set showing the highest deviation in either x or y should 
be discarded. The values of x and y to be used in all computations are then the average 
values of the remaining measurement sets less x c and y c , the coordinates of the plate center. 

The plate constants are found by solving equation (C-la) by the method of least 
squares: 
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l 

/' 


2> 

Z x2 r 

Z*y r 

'£'X 1 yr 

Y,x i r 



Z xr t 


(C-5) 


where the summations are over N stars and r = x 2 + y 2 . The variables a' , b ', are 
found from the similar set of linear equations associated with the equation for 7? in equation 
(C-lb). 

Once the plate constants are known, equation (C-l) will yield standard coordinates £ 
and tj for any x and y. The corresponding right ascension a and declination 8 are found 
from the following relations: 


a = of + Aa 


(C-6a) 


where 


5 = tan 1 


'sin 8 C + 7 } cos 5 C ' 
icos 8 C - r) sin 8 C 


I cos Aa 


£ 

Aa = tan 1 

cos 8 C - t) sin S c 


(C-6b) 


£ sin 8* 

= sin' 1 (C-7) 

cos 8 C cos 5* (77 + sin 5 c /cos ) 

There will be some error associated with each star because of distortion, refraction, 
catalog errors, measurement errors, misidentification, or other blunders. To eliminate stars 
with errors greater than some acceptable r max , the following procedure is used. 

Initially use all input stars to solve for plate constants. Then compute residuals for 
each star: 
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r = (a - a * ) cos 5* 


(C-8a) 


r 6 = 6 - 5* (C-8b) 

where a and 5 are found from the plate measurements, plate constants, and equations (C-6) 
and (C-7). If any residual exceeds /• , remove the star showing the largest residual (in 

either right ascension or declination) and compute a new set of plate constants. Again ex- 
amine the residuals and remove another star if necessary. Keep repeating this process until 

all residuals are less than or equal to r or until more than eight stars would have to be 

removed from the solution. The root mean square (rms) values for r a and r g should be 
computed also. 

For each flashing light image on the plate, compute % and rj by equation (C-l), and 
then a and 8 by equations (C-6) and (C-7). Direction cosines are given by 


X = sin 6 cos 0 - cos 8 sin 0 cos H (C-9a) 

ft -- cos 5 sin H (C-9b) 

v = sin 5 sin <f> + cos 8 cos <f> cos H (C-9c) 

where <t> is the latitude and H is the local hour angle given by 

H = STG + C - L - ce + UT (C-10) 


where STG is the sidereal time, C is 9.8565 s of time per hour of UT, L is the longitude, and 
UT is the universal time of the flash. 

PACT Data 

When PACT data are to be reduced, the direction cosines are given as input, and there- 
fore the computation of plate constants and direction cosines may be omitted. 

Phase Center Corrections 

The azimuth A and elevation e are found from the direction cosines by 

M 

A = tan" 1 — (C-l la) 

X 

e = sin - 1 v (C-llb) 

The quadrant of A is determined by the fact that fi and X have the same signs as sin A 
and cos A , respectively. 
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Given phase center offsets F and P, the problem is to find direction cosines to the radio- 
frequency source before performing any Minitrack computations. 

The course of the aircraft must be known. The angle C is defined as the angle between 
the east direction and the line of flight of the aircraft, measured clockwise from east. Be- 
cause two successive observations are required to determine the direction of aircraft flight, 
it will be necessary to consider the course as constant for the first two data points. Also, 
if two observations are more than 2 s apart, the first should be treated as a final point and 
the second as an initial point in these computations. Denote the aircraft height by H A and 
station height by H s . Then for point i, 

E^-{H a -H s ) (C-12a) 


N { = — (H. -H- ) 


Denote any two successive observations by the subscripts i and i- 1 . Then 


C ( — tan 1 


N r N i-i 
E r E i - 1 


for | N t - N._ l K| E, - E t _ x |. Add it to C { if E f <E j _ 1 . If E. > E { _ 1 and C ; < 0, add 2 ir to 


7T E i~ E i-X 

C -~- tan 1 

' 2 N f - N ( _ j 


for 1 E. - E,_ j Kl N. - iV._ j |. Add tt to C. if N. < N._ l . 


Once has been properly determined, we can find the desired direction cosines: 

E! = F cos C. - P sin C ( . + E { (< 


N! = F sin C. + P cos C. + N. 


from which 


a; =n;ir; 


(C-16a) 


p\=mi 


(C-16b) 
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(C-16c) 


where 

R! = [El 2 +N? + (H a - H s ) 2 ] yi (017) 

The direction cosines defined in equations (C-l 6) are the ones to be used in subsequent 
Minitrack computations. 


Baseline in Wavelengths 


It will be necessary to know the number of wavelengths in the baseline of all antenna 
systems. The number of wavelengths in the baseline for a vacuum is given by 


baseline length X frequency 

n = 

vacuum velocity of light 


(C-l 8) 


using 9.83569229 X 10 8 ft/s for the vacuum velocity of light. 4 The actual number of wave- 
lengths in the baseline is 


n' = (1 - R)fw (C-l 9) 

where R is a quantity based on the optical index of refraction between the station and the 
aircraft, which is given by 


77.6P 1 -e~^ iH A ~ w s> 

R = X 10- 6 (C-20) 

T y(H A - H s ) 

The factor 7 is a constant dependent on atmospheric conditions, for which we use the value 
3.048 X 10' 5 . The units of R in equation (C-20) are arcseconds and must be converted to 
radians for use in equation (C-l 9). For PACT data computation, R is set equal to zero. In 
equation (C-l 9), jx is the index of refraction for the radiofrequency between the station and 
the aircraft and is computed from 

\ - e ~ k( ~ H A - 

jx - 1 + N s (C-21) 

k(H A -H s ) 

where 

77.6 / 48 1 0 PvR H \ 

N s = \P + J X 10 -6 (C-22) 

4 This value is derived from the value given in NASA SP-7012 (1969), which is 2.9979250 X HO'® cm/s. The conver- 

sion factor is 1 m = 3.2808333333 U.S. survey ft. 
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in which 


P - pressure in millibars, which is 0.02953144 in. Hg 
Pv = saturated vapor pressure (given in tabular form as a function of temperature in 
degrees Celsius in the Handbook of Chemistry and Physics ) 

R h = relative humidity 

T = temperature in kelvins, which is 273; 13 + (5/9) (°F - 32) 

In equation (C-21) 

N s 

k = In (C-23) 

N s + AN 

where 

AN = -7.32e 55T7Ar -s X 10 -6 (C-24) 


The variable k as given by equation (C-23) is in units of reciprocal kilometers. 
Fine Antennas 

The Minitrack parameters A c and B c are given by 



where 


(C-25) 


«0 = r * (C-25a) 

[l +(1/4 r 2 X« 2 -«V 2 )] H 

n'\’ 

b o = ; (C-25b) 

[l + (l/4r 2 )(« 2 - « 2 X' 2 )J ,/2 

II A - H s frequency 

r = — x (C-25c) 

v' velocity of light 

Aa Q 

F ew = X (east-west filter constant) (C-25d) 

AUT 


AbQ 

F ns = X (north-south filter constant) (C-25e) 

AUT 
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(C-25f) 


V =• 

ew 


F n S = 


- Aa o 

AUT 

~ Afe o 

AUT 




% 


(C-25g) 


The east-west and north-south filter constants and the velocity constant Vj are given. 
The variables A m and B m are the decimal portions of the Minitrack values. Aa 0 /AUT and 
A* 0 /AUT are the rates of change in a Q and b Q computed from two successive points. It is 
necessary to consider the rates as constant for the first two points associated with a plate. 

The variables n and n' are defined in equations (C-18) and (C-19) where the east- 
west fine baseline is used for computing a Q and the north-south fine baseline is used for 
computing b Q . 


Ambiguity Antennas 


Minitrack parameters for the ambiguity antennas are computed only when input 
time is an integral number of seconds. 

A c and B c for medium and coarse antennas are computed by equations (C-25), 
setting F ew and F ns equal to zero and using the appropriate baseline lengths. For A c 
medium, use baseline east-west medium; for A c coarse, use baseline east-west coarse. 

For B c medium, use baseline north-south medium; and for B c coarse, use baseline north- 
south coarse. 


In addition, the direction cosines to be used are derived from the ones that are used 
to compute the fine data. The coordinates of the radiofrequency source with respect to 
the camera (located at the center of the fine-antenna system) are 


*4 = 


(H a - H s )\' 


Y a = 


&A ~ H s*' 


(C-26a) 

(C-26b) 


z a= h a~ h s 


c- 26c) 

The direction cosines of the radiofrequency source with respect to any other point P 


are 


X p 


X. -X. 

A i 


(C-27a) 
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(C-27b) 


Up - — 

r 

Z4 - 

v p = (C-27c) 

r 

where 

r = 1{X A - X ( .) 2 + ( Y a - Y.) 2 + (Z A - Z.) 2 )* 

and X., Y., and Z. are the coordinates of point P with respect to the camera. X p , tip, v p 
are the direction cosines to be used for X, ju, and v in equations (C-25). We will assume 
Z. = 0 in all cases. The variables X. and Y i are given as translation coordinates. For A c 
medium, use X. = X ewm and Y. = 7 cwn ; for A c coarse, use X * X ewe and Y { = F w£ . For 
B c medium, use X = X nsm and 7, = F„ sm ; for B c coarse, use X. = X nsc and 7,. = 7 nsc . 

Program Description 

The program consists of one main procedure that controls three external procedures. 
The flowchart (fig. C-l) gives more detail about the sequence of operations in each proce- 
dure. The equation numbers 1 through 25 in the flowchart refer to equations (C-l) through 
(C-25). 

Main Procedure 

This procedure reads the Start card (fig. C-2). If a new data set is to be processed, 
INITIAL should be punched on the Start card. All preexisting data are discarded from this 
area of the disk. If plates are being added to or replacing data already on the disk (sig- 
naled by ADDITION on the Start card), the OUTPUT procedure is invoked to save the 
data already on the disk in a special file. 

A Plate card (fig. C-3) is read in. If PACT data are indicated, the MTRACK procedure 
is invoked; if plate constants are indicated, as input, the cards are read. If they are to be 
computed, the STRSOL procedure is invoked. After plate constants have been computed 
or read in, the MTRACK procedure is invoked. 

After all plates have been processed in the above manner, the OUTPUT procedure is 
invoked. 

STRSOL Procedure 

This procedure computes plate constants using updated star catalog positions and the 
coordinates of the star images on photographic plates as described earlier. All of the plate 
coordinates for the stars are read in, after which the updated star catalog positions are read. 


64 



ouipur *m<kcujae 


19/01/7? 




• * 

* 41 • 

• • 

Mt* 




• START • 


.•?i JAIAf. 

• 4UOEil«< 

. TO AN OtO * 
•. 7Ut7 -• 
«, ,» 


■••M«d^***M**«* 

ri£10 I »*f FINE L 
• AH* UAlJl l <7J ♦ 
-X TfM^ORAKy 
* FU-fcS • 


STP t#l.* .i 

Topcn f ILFS r I :«£ ■ 

* ; iho * 

* * 

• * 

•*••<••*«***■« ••• 

•••• * 

• • « 

• S3 *.*. 

• » 

*•** . 

INMNE _ 



• • 

*6*0 X JLfc F INC 


• TtS 




■ INtTIALl/E 




*•**£? • • ftftftftftftii 
• * 

* «€TUK*i • 

• • 


• A* INITIAL fit * 

« a 

m ft 

l*M « 

• * « 
m Oh m. 


01 ♦« 

♦ • «. 

• IS THIS *. 

IS A 'it* 

P. FILM *♦ 




K r i j A KctU^U 
* fR'JH Int • 

* FINE Jl. 
♦ STOkAUc ■ 


*♦*• 
ft ft 

Rft A 1 * 

« • 


.:• IM T 

•m •• 

• vcs 

« 

m 

« 

:°v.; 


•***IS IrtlS*'*. N 3 
ft. r rib ST A*«T 
ft.ct FAbk} .« 


PftlNt rttAOlNO 
ft • 

ft«*M*M**t«ft 


• RETURN 

* 




••♦♦•♦♦♦••••ft 


• ft* ft 
ft * 

:**: 

•*« « 


• X* ti * 

ft • 

♦•ft* 


J«m A HikOlSi 


Figure C-1 .—Flowchart for DR01J. 
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Figure C-1 (continued).— Flowchart for DROIJ. 
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Figure C-1 (continued).— Flowchart for DR01J. 
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Figure C-1 (concluded).— Flowchart for DR01J. 


As each catalog card is read, the coordinate cards are searched for a match. If both cards 
are found for a star, then the components for that star are added into the matrix of equa- 
tion (C-5). 

Processing continues as described earlier until a satisfactory plate constant solution is 
obtained or until more than eight stars have been rejected. Control is then returned to 
MAIN. A sample output is shown in figure C-4. 

MTRACK Procedure 

This procedure computes the Minitrack parameters versus time for each antenna sys- 
tem. The Minitrack Start cards are read. Values that are constant for a given plate are 
computed, and direction data headings are printed. 

The input cards for each point of time are assumed to be interfiled: a Minitrack card 
followed by its corresponding PACT card or Measurement card. For each point, direction 
cosines are either computed from the plate constants as described earlier or given on the 
PACT card. Then computations for phase center corrections, baselines, and fine and am- 
biguity antennas are performed. The results of these computations are saved in the FINE 
and AMB disk files. 
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1 INITIAL - If a new disk file ia being created ( left- just ify ) 

ADDITION - If plates are being added to fLles already on the disk 

2 POLAR - If this is polar data 

EQUATORIAL - If It is equatorial data 

This parameter is used only for output listings. 

For beat appearance POLAR should be centered in 
the field. 


F igu re C-2.— Start card forDROIJ. 



Station Number 


Plate Number 


Character data 


c l The coordinates <in mm) of the approximate principal poLnt (floating point) 

Y I 

c 1 

O’ Right ascension (hrs .min, aec) of the approximate principal point. Right- 

C justify the hours and minutes (fixed integers) and allow 3 decimal places 

for seconds. 

6 Declination (in degrees , min, and sec) of the approximate principal point. 

C Right-Justify degrees and minutes (fixed integers) and allow 3 decimal 
places for seconds. If the angle is negative, put a minus sign in front 
of each of the components. If any component Is zero, it may be left blank. 

The number of measurements (1-5) taken on the coordinates of each star and each 
flashing light. This may be zero or blank for PACT data. 

The maximum residual (r 0 or r^ in eq. (C—8)) allowed for a star to stay in the solution. 
This may he zero or blank for PACT data or if plate constants are given. 

REPLACE If this plate ia replacing the data for a plate with the same number 
already in the disk file. Leave the field blank if this is the first 
time data for this plate has been run. 

PLATE If the plate constants for this plate have already been computed and 
Appear on plate constant cards which follow. 

or 

PACT (left-justified) If there are PACT data for this plate. Leave the field 
blank if plate constants are to be computed. 


Figure C-3.-Plate card for DR01J. 
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Figure C-4< -Sample output listing of star solution. 



The direction data are printed as they are computed for each point. Another copy is 
printed after all computations are complete and control is returned to MAIN. 

OUTPUT Procedure 

This procedure can be invoked by MAIN in two instances. If plates are being added to 
a file already on the disk, the procedure is invoked. At that time the data already in the 
file are read and saved in a separate file, and control is returned to MAIN. After the last 
plate in a run has been processed by MTRACK, this procedure is invoked to edit the disk 
files and produce the fine-antenna and ambiguity-antenna .printed output. If data are being 
added to a file or replacing plates already on the fiie^ the data saved by the first call of this 
procedure are read in. If the plate number is one of those designated to be replaced by the 
Plate card, the data are skipped; otherwise, the data are added to the file containing the 
more recently computed data. That process is repeated for both the fine and ambiguity data. 

All of the data in the fine and ambiguity files are then printed with a separate listing 
for each plate. 

The values from equations (C-25d) to (C-25g) are computed in this procedure because 
they are not retained in the FINE disk file. 

After all listings are complete, control is returned to MAIN, 

Input 


Punched Cards 


The cards that constitute a data deck are 


(1) Start card 

(2) Plate card 

(3) Star Measurement cards followed by a card with a star number <75 (fig. C-5) 

(4) Catalog cards followed by a card with a star number <75 (fig. C-6) 

(5) Minitrack Start card 1 (fig. C-7) 

(6) Minitrack Start card 2 (fig. C-8) 

(7) Minitrack Start card 3 (fig. C-9) 

(8) Minitrack Start card 4 (fig. C-10) 

(9) Minitrack cards (fig. C-l 1 ) \ 

(10) Flashing light Measurement cards (fig. C-l 2) or PACT data cards j ^ nter ^ leci 
(fig. C-l 3) 

(11) /* end of file 

(12) /* end of file 


Cards 2 through 1 1 may be repeated for as many plates as the user wishes. The only 
limitation is the size of the area allotted to the FINE and AMB files. Cards 3 and 4 may be 
replaced by a Plate Constant card (fig. C-l 4), or they may be omitted if PACT data are 
given. Figure C-l 5 is a listing of typical Minitrack Start cards 1 through 4. 
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SJ 14 IJ St S7 58 Si 
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1 t 

> i i 
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FIELOISH 

1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 


Station number 
Plate Number 
Star number 


coordinate measurement 


Character data not checked by the program 
Fixed Integer, right-justified 


All measurements in mm with 3 decimal places 
y allowed. The number Of eets Of measurements 

used by the program is in field 7 of the Plate Card, 


Figure C-5.— Star Measurement card for DR01J. 


Disk 


If ADDITION is specified on the Start card, FINE and AMB files are expected to be 
in the output disk area. The data in those areas will be saved and added to the file after the 
plates of the run are processed. Therefore any plate added to a file will be first in order in 
that file. 

Output 


Printed Output 

As the plates are processed a listing is made of direction data (fig. C-l 6). For PACT 
data the time, right ascension, declination, azimuth, elevation, and direction cosines are 
printed for each point; for other data the time, azimuth, and elevation are printed. As each 
line is printed a copy is saved in disk file DIROUT. After all the points for one plate have 
been read and processed, a second copy is made of the direction data from the data saved 
on DIROUT. 

After all the plates for a run have been processed and data saved from a previous run 
have been added back into the FINE and AMB files, all of the fine data are listed (time, A , 

B c> A m> B m’ Aa 0’ Ab 0 ’ N A ’ N B> COurse > ran B e > - F m> K ew ’ and F ns> for each P oint 
with a separate listing started for each plate in the file (fig. C-1 7). Then all of the ambiguity 

data are listed (flash time, A c medium, A c coarse, B c medium, and B c coarse) for each point, 
again with a separate listing for each plate (fig. C-l 8). 
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Station number 


Plate number 


Character data not checked by the program 


Star number - Fixed integer number must match a star number on the star measurement carde 
Star catalogue number - character data 


a right ascension 
6 declination 


location of the star from the catalog 


Figure C-6.-Catalog card for DR01J. 


il 17 » 14 lj * n l»» » tt « » » « J» 37 M W 3Q « M 3» * » » >1 M » « 4141 «a T B W 5fl }t Si Q M 55 » JT 58 J* M 41 61 61 <4 65 « 67 U W 10 71 71 71 M 75 IS 7T7N7; b 

K M St ^ ° » "V T 


Station numher 


Plate number 


Character data not checked by the program 


STG - The sidereal time at Greenwich at 0 hours UT on the day of observation in 
hours , minutes (Fixed integers), and seconds (three decimal places allowed). 

West longitude of the camera site in degrees, minutes ( fixed integers), and seconds 
(three decimal places allowed). 

Latitude of the camera site in degrees, minutes ( fixed integers), and seconds 

(three decimal places allowed). If the angle is negative, each 

component must have a sign. If any component is zero It may be left 

blank. 

Aircraft code - Character data not used by the program. 


Forward offset-' 


Port offset 


Offset coordinates of the RF source from the flashing light in feet. 


Figure C-7. -Minitrack Start card 1 for DR01J. 




*rrn» jap nJOMJs»r73i» « *4 as 44 4? « 49 scJsi n n 54 


1 Station number 


2® Plate number 


Character data not used by the program 


3 Frequency in MHz of the transmission 

/» Velocity constant, used in equations (C-25f) and (C-25g) 


Filter constants used in equations (C-25d) and (C-25e) 


7 Station Height 

8 Aircraft Height 


In feet, above mean sea level. 


Figure C-8. -Minitrack Start card 2 for DR01J. 
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Figure C-9.— Min it rack Start card 3 for DRQ1J, 
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FPELD(S) 
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Station Number 


Character data not used by the program 


Plate Number 
Temperature in degrees Farenheit 
Pressure in inches mercury (Hg) 

Relative humidity in percent (3 decimal places allowed). 


Figure C- 10.— Minitrack Start card 4 for DR01J. 
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Station Number 
Plate Number 
AM 


Character data not used by the program 


DM 


Fine antenna Minitrack measurements. 


Universal time of the flash in hours, minutes, and seconds. 


Figure C-1 1.— Minitrack card for DR01J. 
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Figure C-1 2.— Flashing light Measurement card for DR01J. 



Figure C-13.-PACT data card for DR01J. 
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1 a 
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Plate constants in floating point exponential 
format with 8 significant digits and an exponent 
to place the decimal point. 
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■ ) 


PLATE CONSTANT CARD 2 has exactly the same format 
with plate constants a', b' , c*> d* p e ’ , and V. 

Figure C-14.— Plate Constant card 1 for DR01J. 
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START CARDS I 

00 IS 0*0 1130*6*75000* 1*6*30 51 26 *5*30 *28 0000 3033 

0015 0*0 1365030 00100000 0368000 0378000 28773 2583000 

50153326753326750253100253100289300289300750008766100310605308766075000605310031 
0015 0*0 52000 3016555 81000 

Figure C-15.-Sample output listing of Minitrack Start cards for DR01J. 


Disk Output 

Permanent disk output consists of the fine and ambiguity data files. The fine file 
records are in blocks of 3400 bytes with 136 bytes per logical record. Each record has the 
following format: 


Bytes 


Data 


1 

to 

4 

5 

to 

8 

9 

to 

12 

13 

to 

16 

17 

to 

24 

25 

to 

32 

33 

to 

40 

41 

to 

48 

49 

to 

56 

57 

to 

64 

65 

to 

72 

73 

to 

80 

81 

to 

88 

89 

to 

96 

97 

to 

100 

101 

to 

103 

104 

105 

to 

136 


Time of flash in single-precision floating point 


Hours 
Minutes 
Seconds 

Null area character data reserved for later use 


B„ 


From equation (C-25) 
Minitrack card input values 


C From equation (C-13) or (€-14) 

R Equation (C- 17) 

A a Q 1 Aa Q /AUT and A6 0 /AUT.from equations 
A b Q j (C-25d) to (C-25g) 

N a 1 As defined in equation (C-l 9) with fine 
N b f baselines 

Station number 

Plate number • Character 
Code for later use , 

Four double-precision floating-point numbers for later use 


Double- 

precisior 

floating 

point 


The ambiguity file has blocks of 1680 bytes with 56 bytes per logical record. Each 
record has the following data: 


Bytes 


Data 


1 to 4 
5 to 8 
9 to 12 


Hours 
Minutes • 
Seconds 


Time of flash in single-precision floating point 
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DIRECTION DATA FUK UUIUN 0015, PLATE NKH8EK 040 EQUATORIAL 


05/21 /« 


riASH tine 

RIGHT ASCENSION 

DECl I N4 T 1 0 iS 

AZIMUTH 

UeVAT ION 

IAMUOA 

HU 

NU 

20 

*e 

SO* 8000 

7 

A9 

AA.05A 

54 

9 

6.570 

5. 2739 7893 

1 .4 772 9422 

, 3 5 12900 7 

-.07001 566 

•99563186 

20 

ab 

57*0000 

7 

51 

6 • 1 AO 

54 

9 

44.033 

5.31 349319 

1,40029051 

.0511160) 

-.074539)4 

♦99590714 

20 

48 

5/, 2000 

7 

52 

28.396 

54 

10 

15.125 

5.334726H5 

1.43 326297 

♦ 0 v 07262 4 

-.0710570) 

• 9 S 6 1 7132 

20 

4 8 

57.4000 

7 

53 

50.71B 

54 

10 

44. 123 

5.356478 B2 

1.406 19146 

.050/421 7 

-.06/5/332 

•99642)14 

20 

4 8 

57.0000 

T 

55 

12.539 

54 

11 

10.935 

5.38022604 

l .40905333 

-.05056609 

-.06413999 

• 9 366 6091 

20 

4 g 

57.6Q00 

7 

56 

3A. 590 

54 

u 

34,1/1 

5.40572975 

1.49107103 

,0533 0 782 

-.0606)750 

,99600724 

20 

40 

>8*0000 

7 

57 

57.581 

54 

11 

49.717 

5,43319494 

1.494602 74 

,05010561 

-.357 1253 1 

. 9971 0477 

20 

a e 

8D.2O00 

7 

59 

20.573 

54 

12 

4.658 

5.44200O7A 

1.49742008 

.04979705 

-.05)61525 

•99/33921 

20 

40 

5 b . 4 0 9 J 

e 

0 

A3. 152 

54 

12 

14. 326 

5. 4945 7695 

U5OCO0U2 

.049033/1 

-.05012158 

.997500/4 

20 

AS 

SO. 6000 

e 

2 

5.945 

54 

U 

23.170 

5.52893492 

1.5026 629 1 

,04901621 

-.04661 7/6 

,9976 7Sb2 

20 

A ri 

58 • <*QGJ 

8 

3 

29.290 

54 

12 

23.1 / 0 

5.566Wt>92 

l. 50519259 

• 04 94 0 a 2 2 

-.34)09179 

,99 7f)4d 05 

20 

48 

59.0000 

8 

A 

52.16A 

54 

12 

2 3. 390 

5.60577968 

l. 50769377 

.04921305 

-.0 37 50 42 0 

.99003370 

20 

A« 

59.2000 

8 

6 

15.053 

54 

12 

19 ,655 

5.64869745 

1.509090 70 

.04901492 

-. 0 3637552 

.9901453) 

20 

A h 

59. AGCO 

9 

7 

37.986 

54 

12 

13.612 

5.69497702 

1,51207535 

.O40U2 429 

-.0 3265 4)3 

.9902 7440 

20 

48 

59.5000 

8 

9 

1.262 

54 

W 

2. 131 

5, 74402092 

1.51413229 

.0486230) 

-.G2903756 

.998)9502 

20 

A 8 

59.8000 

8 

10 

2A.350 

54 

n 

46.915 

5. 79816709 

1 .516035 56 

•0484218) 

-,02551805 

.99)53103 

20 

AS 

.0000 

0 

u 

A7.22A 

54 

u 

2 7,085 

5.08490)64 

l . 5 1 7 7 7 329 

•04021)19 

-.0 22 CO 671 

.99857461 

20 

AS 

• 2 000 

8 

13 

10.236 

54 

n 

4. 1 78 

5,91557063 

1.51932/74 

♦04030691 

-,01848005 

,9906 7509 

20 

AS 

.A 00 0 

8 

1 A 

33.516 

54 

10 

3 7.427 

5.97992357 

1,62069149 

.04 7 /9042 

-.01495678 

.9907 t 502 

20 

49 

.6000 

e 

15 

57. A52 

54 

10 

12.323 

6.04027205 

1.52101 79 4 

.04761411 

-.01139558 

.99800080 

20 

A 9 

.60C0 

8 

17 

19.619 

54 

9 

39, lAA 

6.11789207 

1.52271430 

♦ 04 74 0 041 

-*00793045 

.99804420 

20 

AO 

L * 0000 

8 

10 

A2 • A 93. 

54 

8 

59. 154 

6. 1904 1446 

1,52330006 

.04/10692 

-.30439008 

* 9738/640 

20 

AS 

2. COSO 

8 

25 

37. 310 

54 

A 

59,213 

,27901700 

1.522/0295 

,04612022 

,0132652) 

,99384758 

20 

A 7 

2.2000 

8 

27 

.264 

54 

4 

1.064 

,35054163 

1,52100218 

.0072121 

.316/7074 

,99080394 

2 0 

A 9 

2 « 4000 

8 

28 

22.952 

64 

2 

56.385 

,41042302 

1.523/7042 

,046691 1 5 

*0 20 H b 3 5 

. 9 9b 7489 7 

20 

49 

3.0000 

8 

32 

30. 22 A 

53 

59 

21.108 

,601)031 

1.5161 B 3 3 7 

.04533)31 

,03088379 

.9/051911 

20 

AS 

3.20U0 

a 

33 

53.256 

53 

58 

10.521 

*65511549 

1.5 1424424 

» 044 w2C64 

*D 34436CA 

*99840136 

20 

AS 

3 . AOOO 

6 

35 

IA. 875 

53 

56 

4b. 508 

• 70400597 

i. 51221956 

.044)9152 

,0379)298 

.99820407 

20 

AS 

3.6000 

8 

36 

37. 197 

53 

55 

22 .046 

,7)167/26 

1.6100 Jd >2 

.04435069 

.34146)59 

.99015404 

20 

AS 

3. bCOO 

8 

37 

59 .247 

53 

53 

54.045 

•79495198 

1.50773439 

.0441)421 

*34496567 

.99031226 

20 

AS 

A 4 00 00 

B 

39 

2 1 . i 6A 

53 

52 

21.815 

•03513649 

1*50532307 

.04 390564 

• 04853 583 

.99/85 / 44 

20 

A 9 

A. 2000 

a 

AO 

A3. 019 

53 

50 

48.706 

,87227952 

1,50280676 

• 04 J6B921 

*05232639 

,99760960 

20 

AS 

A. AOOO 

a 

A2 

4.7J0 

53 

A9 

9.664 

.90606077 

1*503 2109 3 

.04346011 

,35554502 

.99780988 

20 

AS 

A. 6000 

a 

A3 

26.097 

53 

47 

29. 30 4 

.93 376634 

1.49754029 

.04)23967 

*35905240 

.99731798 

20 

AS 

A. 8000 

a 

AA 

47.633 

53 

45 

36. 504 

.96097620 

1*49481152 

•0429/094 

• 06257452 

• 9S/U454 

20 

A 9 

5.0000 

e 

A6 

8. 376 

53 

43 

55.236 

•99609633 

1.4920 1072 

•04278221 

*06605371 

.99689802 

20 

AS 

5.2000 

6 

AT 

29*156 

63 

Ai 

57.242 

1.02206165 

1*48917849 

•04252388 

•06955870 

•99667111 


Figure C-16.— Sample output listing of direction data for OROI J. 



FINE ANT ENNA DATA F OK STATION 0015 PLATE N0.041 EQUATORIAL 


05/23/72 


FLASH TIME 

AC 

ec 

AH 

BN 

oa/dt 

08/ DT 

NA 

Ntt 

COURSE 

RANGE 

FEM 

FNS 

VEH 

VNS 

20 

S3 

'<2.0000 

3.502 

.404 

• 62 7 

.594 

-.014 

.027 

46 .16B82S 

46 . 168625 

-I.S30L3 

25589.02 

-*0 30 

*001 

.307 

-.000 

20 

S3 

42.2003 

3. 420 

.489 

.666 

.600 

-.014 

.027 

46* 160025 

46. 163B25 

-1.53018 

25583.01 

-.030 

• 001 

.005 

-.000 

20 

S3 

42.4000 

3.250 

.495 

.500 

.60S 

-.016 

.027 

46.160025 

4b, 160025 

- t . 5 3d 2 7 

25576.52 

-.030 

• 001 

.034 

-.000 

20 

S3 

43.0000 

2.772 

.511 

.023 

.620 

-.617 

.028 

46.163825 

46. 160825 

-1.53767 

25559,98 

-.030 

• 001 

.000 

-.coo 

20 

53 

43.2003 

2.602 

.516 

.050 

.625 

-.616 

.022 

46 .160025 

46. 160825 

-1.54492 

25553. 78 

-•030 

.001 

.007 

-.000 

20 

53 

44,0000 

1.954 

.535 

.209 

.644 

-.617 

.024 

46,160625 

46. 163325 

- 1.54192 

25536. 2L 

-.333 

.001 

• 002 

-.000 

20 

S3 

44.2C00 

1.79L 

.541 

.043 

.649 

-.022 

.027 

46.160025 

46 . 160825 

-1.53/90 

25532.61 

-.030 

• 001 

.000 

-*000 

20 

53 

44.40CO 

1.621 

.546 

.869 

.653 

-.017 

.025 

46.160825 

46.160825 

-1.5409 L 

25529.35 

-.030 

• 001 

.007 

-*000 

20 

S3 

44.6000 

1.458 

• 550 

.704 

.650 

-.821 

.021 

46.160025 

45. 168025 

-1.5461 0 

25526.39 

-.030 

• 001 

.006 

-.000 

20 

S3 

44,8000 

1.295 

.555 

.544 

• 66 2 

-.022 

.024 

46.16U025 

46, 169825 

-1.54151 

25523.76 

- *0 33 

• 03 1 

.304 

-.000 

20 

SI 

45.0000 

1.132 

.559 

.386 

.66 7 

-.82 1 

.022 

46 . 161182 5 

46. 168025 

-1.54405 

2552 1 . 45 

-*0 30 

*001 

• 003 

- ,000 

20 

S3 

4 5 . ? 0 C 3 

.969 

.564 

.225 

.671 

-.019 

.023 

46.160025 

46 . 168025 

-1.542/6 

25519.48 

-.030 

.001 

• 332 

-.000 

20 

53 

45, 4003 

.606 

.56 8 

.060 

.577 

-.821 

.019 

4t» .1 60d?5 

46. 160325 

-l .54 750 

25517.92 

-.030 

.001 

.000 

-.000 

20 

53 

45.6003 

.636 

.572 

.866 

• 6 0 0 

-.8 19 

.025 

46.160025 

46,169825 

-1.54098 

255) 6.49 

-.030 

• 001 

.007 

-.000 

20 

S3 

45 . i;00 3 

.473 

.577 

. 721 

.685 

820 

.021 

46, 160025 

46. 16 8 0 2 5 

-1 .54645 

25515.47 

-♦030 

.001 

.0 06 

-.000 

2C 

S3 

46.0003 

.310 

.501 

.559 

.689 

-.021 

.022 

46.160025 

46. 168 G 2 5 

- 1.54419 

25514,70 

-*030 

.031 

.DOS 

-.000 

20 

SI 

46,2000 

.149 

.5H6 

.401 

.694 

-.019 

.023 

46.168025 

46, 160025 

-1 . 54290 

2 5514.42 

-•030 

.00! 

*333 

-.00 0 

20 

S3 

46 *4 000 

-.015 

.589 

.241 

.690 

-.019 

.010 

46.160025 

46. |6dfl25 

- 1 , 54 H*< 7 

25514.36 

-.030 

.001 

, 0 C2 

-.03 0 

20 

S3 

46. oQOO 

177 

.595 

.077 

.701 

-.621 

.026 

46. 1 60825 

46 . 1 60d 2 5 

-1.53061 

25514.65 

-, C 30 

• 001 

• 001 

-.oco 

20 

S3 

46.8003 

-.340 

.599 

.902 

.707 

-.B2Q 

.021 

46 .160026 

46. 168G25 

-1. 54497 

25515.25 

- * C 30 

.001 

• 007 

-.000 

20 

S3 

4 7.0000 

-.511 

.603 

.73 7 

.712 

-♦ b2 l 

* 02 2 

46, 160325 

46 .160025 

- 1.544J4 

25516.17 

-•030 

♦ 001 

.006 

-.000 

20 

S3 

4 7.2003 

-.673 

.600 

. S 7 5 

.716 

-.617 

.022 

46 .tbH325 

4b, 163025 

-1.54351 

25517,41 

-♦030 

• 001 

,005 

000 

20 

S3 

4 7.4000 

-.836 

.612 

♦ 416 

.72 l 

-.02 l 

♦ 023 

46.160025 

46. 168025 

-1.54292 

25519.97 

-.030 

.00 1 

.003 

- ,oco 

20 

53 

4 7,6000 

-.999 

.617 

.256 

.72 5 

-.022 

.023 

46. 160025 

46. 163925 

- 1.54236 

25520.U7 

-.030 

*001 

.002 

-.000 

20 

S3 

4 7,11003 

-1.161 

.622 

.093 

.730 

-.617 

.025 

46.16*825 

46, [60825 

-1.54041 

25523,08 

-*330 

.031 

.001 

-.000 

20 

31 

45.C0D0 

-1.312 

.626 

.919 

.734 

-.819 

• 0 22 

46.168025 

46. 163825 

-1. S4 309 

25525.61 

-.330 

.031 

.oca 

-.030 

20 

S3 

43.20C0 

-1.494 

.631 

• 7 55 

.739 

-.620 

.023 

46.160025 

46. 163025 

‘1.54233 

25520.47 

-.030 

.031 

.304 

-.030 

20 

S3 

48.4000 

-1.656 

.635 

.592 

.743 

-.017 

.023 

46 .163025 

46. 160325 

-1.54105 

25531.64 

-.030 

.001 

♦ ors 

-.ono 

20 

S 3 

40.6000 

-1.019 

.640 

.433 

.740 

-.019 

.023 

46.160325 

46. 1 t>d 82 5 

-1.54 107 

25535. 14 

-•0 30 

.001 

.004 

-.000 

20 

S3 

43.0000 

—1.901 

.64$ 

.273 

* 752 

-.819 

.025 

46.168025 

46.108025 

-l. 54034 

25539.96 

-.030 

♦ oot 

• 0 C 2 

-.00 0 

20 

S3 

40.0000 

-2.143 

.650 

.110 

. 757 

-.813 

• 023 

46, l 6 Gd 2 5 

46 . 16 80 2 5 

-1 .54214 

25543.08 

-.030 

• 001 

.oo i 

-.003 

2 C 

53 

40.2000 

-2. 313 

• 654 

.939 

.76 1 

-.021 

.022 

46,160825 

46, 160325 

-l .54321 

25547,56 

- .0 30 

.031 

.008 

-.000 

20 

S3 

49.4000 

-2.475 

♦ 6 59 

.775 

.76 6 

-.014 

• 02S 

46.160825 

46. 10dd2 5 

-1.53913 

25552*33 

-.030 

.031 

.306 

-.000 

20 

S3 

49.6000 

-2.637 

• 663 

.612 

.770 

-#816 

.021 

46.160825 

46. 163825 

-1.54433 

25557.43 

-.030 

.001 

• 005 

-*oco 

20 

S3 

49,0000 

-2.799 

.660 

• 453 

.774 

-.616 

.022 

46.160025 

46. 160325 

- WS42S8 

25562* 86 

••030 

.001 

♦ 006 

-.030 

20 

S3 

50.0000 

-2.960 

.672 

#293 

• 778 

-.814 

• 0 24 

46.168025 

46.163825 

-1.54032 

25560.60 

-*030 

• 001 

#002 

-.00 J 

20 

S3 

SO. 2000 

-3.121 

• 676 

• 131 

$ 783 

-.811 

#018 

46.16B02S 

46.16302$ 

-1*5471$ 

25574.63 

*•030 

#00 1 

#001 

-•000 


Figure C-17, -Sample output listing of fine-antenna data for DR01 J 



AMD 1 GUI TV ANTENNA 

DATA FOR 

STATION 001* PLATE NO. 0 AO 

EQUATUHIAL 

FLASH Tint 

ACIMED) 

AC 1 COURSE > 

BCtNEOI 

BCtCnURSEJ 

20 *a 

57.0000 

-.311 

-.2 76 

. 1 V6 

• 168 

20 46 

56*0000 

-.241 

-.215 

.192 

.164 

20 48 

59.0000 

-.171 

-.153 

• 1 6 0 

• 161 

20 40 

.0000 

-.098 

-.0»9 

* 184 

.157 

20 4* 

1.0000 

-.030 

-.030 

*160 

.154 

20 49 

2*0000 

*041 

.032 

• 176 

*150 

20 49 

3.0000 

• 112 

.OVA 

• 171 

• 146 

20 49 

4*0000 

• 183 

.156 

• 167 

• 142 

20 49 

5.0000 

• 253 

.216 

• 162 

.138 


Figure C-18. -Sample output listing of ambiguity-antenna data for DR01J. 


Bytes 

Data 

13 to 16 

Character data to 

pad for alignment 

17 to 24 

A c medium \ 



25 to 32 

A c coarse 1 

Equation (C-25) as modified for ambiguity 

33 to 40 

B c medium | 


data— double-precision floating point 

41 to 48 

B c coarse 1 



49 to 52 

Station number 

i 


53 to 55 

Plate number 

i 

i 

Character 

56 

Code for later use 

J 



Disk files are also used for temporary storage of fine and ambiguity data already in the 
file and direction data. 


Problem Statement 

The PROOFREAD program has three main purposes. First, PROOFREAD assigns the 
proper integral portions to the input Minitrack readings, which contain only the decimal 
portions. Second, the decimal portions of the Minitrack readings are corrected by the cali- 
bration constant correction value KS1 . Finally, PROOFREAD determines the average 
values of the calibration constants for all antenna systems and the simple residuals associated 
with these constants. It is to be run in conjunction with and after program DR01 J. 

Mathematical Procedure 


The symbol A identifies the east-west direction; B identifies the north-south direction. 
The camera data are denoted by AC and BC, and the decimal part of the readings from the 
Minitrack system are denoted by AMQ and BMQ. On the DR01 J output listings, AMQ and 
BMQ are labeled AM and BM. The calibration constants are KCA and KCB. The calibration 
constant correction factors are denoted by KS1 A and KS1B. Then for any point i, 

KCA, = Decimal portion of (100 + AMQ,- AC,- KS 1 A) + I A. 

KCB, = Decimal portion of (100 + BMQ,-BC,-KS1B) + IB, 


81 



where 1A, and IB, are integral numbers and are always equal either to 49 to 50. They are 
determined in the following manner for any particular antenna system. For the first data 
point in a set, 


1 49 if decimal portion of (100 + AMQ t - ACj-KSlA) > 0.850 
50 if decimal portion of (100 + AMQj-ACj-KSlA) < 0.850 
and similarly for IBj . For any data point i in a set after the first point, 

! 50 if KCA j >50.100 

50 if KCA, < 50.100 and decimal portion of (100 + AMQ,.- AC,-KS1 A) < 0.500 ' 
49 if KCAj < 50.100 and decimal portion of (100 + AMQ,.-AC,.-KS1A) > 0.500 
and similarly for IB,-. 

Final Minitrack values AM,, and BM,. are given by 

AM,- = I A,. + AC,. + decimal portion of (100 + AMQ.-AC.-KS1 A) 

BM,. = IB,. + BC, + decimal portion of (100 + BMQ,.-BC,.-KS1B) 

Final calibration constants KCA and KCB are simply the averages of the individually 
computed KCA,- and KCB, values; that is, 

KCA = 

n 

KCB = — - 

n 

where n is the total number of data points. 

Simple residuals RA,. and RB,. are computed for every point: 




RA,. = AC,. + KCA - AM,. 


RB, = BC. + KCB - BM. 

All of the above equations apply to fine-antenna data. The same equations are used 
for ambiguity-antenna data except that medium antennas and the coarse antennas have their 
own unique constant correction factors to be used in place of KS1 A and KS1 B. Also, am- 
biguity data are processed only at integral seconds, and because of the way the ambiguity 
Minitrack data are recorded, the data must be interpolated. 
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AM medium is recorded for the integral second, AM coarse at that time + 0.2 s, BM 
medium for that time + 0.4 s, and BM coarse for that time + 0.6 s. Linear interpolation is 
used. 

Program Description 


Fine- Antenna Data 

This program can be preceded by a sort routine for ambiguity data to merge, arrange, 
and interfile two files (polar and equatorial) in ascending order by plate number. The 
merged files of ambiguity data are left on a work disk, and the data on the Minitrack disk 
are not changed. 

The program DR01K reads first a Lead card, to determine whether fine data or ambi- 
guity data are to be processed. The Lead card is followed by a Start card and up to 50 Cor- 
rection cards and n fine KS1 cards, where n is the number of plates in the calibration. The 
quantities on the fine KS1 cards are read into an array, from which they are matched with 
the proper plate on the disk. The camera and fractional Minitrack values for fine data are 
both found on the Minitrack disk, written there as output by program DR01 J. The revised 
Minitrack values and calibration constants are computed from the data on the Minitrack 
disk and KS1 values from the fine KS1 cards and are stored in a temporary file on the work 
disk. After all the data points have been read, the calibration constants are averaged. The 
residuals are computed, and the data are written back onto the Minitrack disk in the same 
place from which they came. The revised Minitrack values and the residuals assign values to 
variables that were empty on input. None of the input data are changed. However, there will 
be an additional record at the beginning of the file that contains Start card information. 

Ambiguity-Antenna Data 

The ambiguity data are computed separately from the fine data. The input data con- 
sist of camera values on the Minitrack disk and Minitrack values on cards. The Minitrack 
cards for each plate are preceded by a KS 1 card. This is read and followed by a series of 
ambiguity Minitrack cards and disk records. All data points without both card and disk 
data are ignored. The Minitrack data must be interpolated to the camera data; otherwise, 
the process for computing revised Minitrack values, calibration constants, average calibration 
constants, and residuals is the same as for fine data. Medium and coarse intermediate re- 
sults are stored in separate temporary storage areas. Two listings of each are printed, and 
there is no disk output. 

All listing, fine, medium, and coarse, is done using the PRINT listing procedure. 

The program must interpolate the Minitrack ambiguity data because it is not all re- 
corded for times at integral seconds. For example, the east-west coarse Minitrack value is 
recorded for 0.2 s plus the integral second. The value that the Minitrack would have been 
had it been found at the integral second instead of 0.2 s later must be computed. The 
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present Minitrack value and the previous Minitrack value are linearly interpolated to lind the 
value in between. Thus the first ambiguity data point of every plate will be lost because 
theie is no previous value to use. 

When there is a jump of more than 1 s between data points, the program assumes that 
the change in Minitrack value is evenly distributed over the time gap. 

Corrections 

A correction option is provided for the fine-antenna data in this program. It is to be 
used in case a few data points on the disk have incorrect Minitrack values that can be cor- 
rected or there are points with incorrect camera data that can be deleted. The Minitrack 
errors must be small enough in magnitude that the errors were not propagated into the 
camera data, and the number of points to be deleted must be small enough that they can 
be omitted without lowering the quality of the output. 

In making a correction, either AM or BM, of both, can be corrected. A point may be 
deleted regardless of whether the error is in the camera data or the Minitrack. Up to 50 
points can be corrected or deleted. 

Input Description 

This program uses as input the Minitrack disk created by the program employing the 
BLCAM procedure (DR01I). Its card input is seen in figures C-19 to C-24. Carets are used 
to denote implied decimal points. 


« T| a T a « T i ? iQ ii ta \i w J6 it a i9 'ioa bom 




LAYOUT HAKE PROGRAM NAME COLUMNS COMMENTS 

PI FINE-FLAG 1 Flag 13 1 if fine antenna data are to be 

processed , 

- 0 if fine data are not to be 
processed. 

F2 AMB-FLAG 3 Flag «■ 1 if ambiguity data are to be 

processed , 

=* 0 If ambiguity data are not to be 
processed . 


NC CORECT 5-6 Total number of data points to be corrected 

or rejected by means of Correction Cards. 
This number must be equal to the number of 
Correction Cards which are deluded in the 
input deck. 


Figure C-19.-Lead card for DR01 K. 
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jgi I ST A 

T i[ n > t t i » i 


FREQ 


CALIB. 

DATE 


LABEL 


wh» it ni 4 i& k it a ft m 21 n a»»»pga 


d l , - Y M dU L= 

< a]«9 sefaj 


icqm e^gg g»Jn rz raw ft k. n re *>»] 


LAYOUT NAME 

PROGRAM NAME 

COLUMNS 

CODE 

CODE 

2 

STA 

SSTA 

7-10 

FREQ 

FREQ 

31-40 

Y 

YR 

45-46 

M 

MON 

47-48 

0 

DY 

49-50 

NL 

NO 

52 

LABEL 

EOP 

61-70 


COMMENTS 

Code - 1 if calibration la polar 

- 0 if calibration is equatorial 
Station number 
Frequency in megaherts 
Year of calibration date 
Month of calibration date 
Day of calibration date 
Number 'of listings desired 

A label which is printed as part of the 
title of the output listing. This can be 
any 1C character title. 


Figure C-20.— Start card for DR01K. 


o 

O* 

| 

KS1A KS1B 

STA PLT 

I ... _ — — — — — ——■==! 

k 

l A S « M 9 ijil ufll ** r*|* 1?f* 19 Z 



LAYOUT NAME 
PC 

PROGRAM NAME 
PC 

COLUMNS 

1 

COMMENTS 

Plot Code - 1 for Eaat-west run 

^ 2 for North-south run 

KSIA 

KSA 

11-15 

Calibration correction constant for east-west 
fine array, in counts 

XSIB 

KSB 

16-20 

Calibration correction constant for north-eouth 
fine array* In counts 

STA 

ST 

74-77 

Station number 

PLT 

PLT 

78-80 

Plate number 


Kotei If PC - 1, all data points whose AC (Camera east-vest) exceeds S.000 In absolute value vill be omitted 
from the output. To 'be used only when data will be plotted. 

If PC - 2, all data points whose BC (Camera north-south) exceeds 5.000 in absolute value will be 
omitted froia the output. To be used only when data will be plotted. 

If PC “ blank, all camera data (AC or BC) which exceeds | 5.000 ] will be included in output, Deed 
when data is not to be plotted. 


Figure C-21.— Fine KS1 card for DR01K. 


Disk Input 

Camera data and decimal Minitrack values for the fine antennas are read from a Mini- 
track disk (table C-l ). Polar and equatorial data are in separate files and must be processed 
separately. Camera data for all ambiguity antennas are read from a different area on the 
same disk (table C-2). 

The polar and equatorial files may be sorted together and processed together. 
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LAYC 

KJT NAME 

PROCRAM NAME 

COLUMNS 

COMMENTS 



liVM 

KSI 

KSAH 

11-20 

Calibration correction constant 
medium array* in counts. 

for 

ea3t-west 

EWC 

KSI 

KSAC 

21-30 

Calibration correction constant 
coarse array, in counts. 

for 

east-west 

NSM 

KSI 

KSBM 

31-40 

Calibration correction constant 
medium array, in counts. 

for 

north-south 

NSC 

KSI 

KSBC 

41-50 

Calibration correction constant 
coarse array, in counts. 

for 

north-south 

CUE 


COE 

60 

This must be set equal to 1 in order to get 
the KSl ? s subtracted out. 

PLT 


OPIATE 

73-80 

Plate identification number. 




Figure C22.— Ambiguity KS1 card for DR01K. 


UT 

EWM EWC 

1] '3 W ft * Iff* (9 O 84 »» » X 

NSM 

L sesrfa»«|« 

NSC ; ' ft — 

PLT 

H M . S l— 7—1 
1 t }4 ilMt 10" 

^4J44<S«4T[48«»j5l 5 » 54 » J6 S> M ttjf6|6l « ft >4 B * 7t|T* T»« j 

LAYOUT NAME 

PRQCRAM name; 

COLUMNS 


COMMENTS 


UT 

AMB-UT 

1-6 


Time of data point in hra, min, sec. 


EWM 

M-QAM 

11-20 


Minitrack value as measured by EWM array. 


EWC 

qam-c 

21-30 


Mlnitrack value as measured by EWC array. 


NSM 

QEM-K 

31-40 


Minitrack value as measured by NSM array. 


NSC 

QBM-C 

41-50 


Minltrack value as measured by NSC array. 


CODE 


60 


Must be blank. 


PLT 

CPLATE 

78-80 


Plate number identification. 



Figure C-23.-Ambiguity Minitrack data card for DR01K. 
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TIKE 


AM 


H , M, S i 

i z( a »|t a » ip n now tf »it|» nzuja 


(Jj 5 3 34 36 * V 39 » «0«* « 43 44 45 46 -17 49 «9 50b( 2 S3 M 56 *STj* 5fl 60 64 g O M 66 MB M 69 IP Tl ?Z 7jT4 r> ft , T> 78 Ti M[ 


LAYOUT NAME 

PROGRAM NAME 

COLUMNS 


COMMENTS 

H 

HCD 

1-2 

Hours j 

j Time of data point to 

N 

MCD 

3-4 

Minutes 

f be corrected 

S 

SCD 

5-10 

Seconds J 

| or deleted 

AM 

CORAM 

11-20 

If the decimal Minitrack eaet-weet value ie 
to bo corrected, the correct value ia put here. 
Otherwise field is blank. 

BK 

CORBM 

21-30 

If the decimal Minitrack north-aouth value is 
to be corrected, the correct value la put here. 
Otherwise field la blank. 


Note: If the data point is to be deleted, both AM and BM fields are left blank and only the time of the 

point is put on the card. 


Figure C-24.-Correction card for DR01K. 


Table C-l.-Fine Disk Input Record (136 Bytes) 


Program 

name 

Bytes 

_ . 

Comments 

HR 

1 to 4 

Hours \ 

MN 

5 to 8 

Minutes > Data point time in UT 

SEC 

9 to 12 

Seconds ) 

AC 

17 to 24 

Camera east-west data 

BC 

25 to 32 

Camera north-south data 

AMQ 

33 to 40 

Minitrack east-west decimal portion 

BMQ 

41 to 48 

Minitrack north-south decimal portion 

STA 

97 to 100 

Station number 

F.PLATE 

101 to 103 

Plate number 

CODE a 

104 

PC from FINE KSI card 

RA a 

105 to 112 

Fine residual, east- west 

RB a 

113 to 120 

Fine residual, north-south 

AM a 

121 to 128 

Minitrack value, east-west 

BM a 

129 to 136 

Minitrack value, north-south 


^On the input record these fields are filled with dummy data. The quantities described refer to the disk output 

record. 


Card Input Deck 

The input decks for the various options, including system and program control cards 
and cards needed for sorting, are given in figures C-25 to C-27. 

Output Description 

Tabular and disk output are generated. 
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Table C-2.— Ambiguity Disk Input Record 


Program 

name 

. 

Bytes 

Comments 

AHR 

1 to 4 

Hours j 

AMN 

5 to 8 

Minutes ? Data point time in UT 

ASC 

9 to 12 

Seconds ) 

ACJM 

17 to 24 

Camera east-west medium data 

AQ.C 

25 to 32 

Camera east-west coarse data 

BC_M 

33 to 40 

Camera north-south medium data 

BC_C 

41 to 48 

Camera north-south coarse data 

ASTA 

49 to 52 

Station number 

PLATE 

53 to 55 

Plate number 

ACODE 

56 

Print code 


// PAUSE MOUNT DRZOOl ON 133 
// ASSGN SYS018,X’133' 

// ASSGN SYS019,X’132’ 

** // DLBL FINE, ' FINE DATA GUS TEST 

// EXTENT SYS018, DRZOOl,, ,2700,25 
** // DLBL FINEIH, ’FINE DATA GUS TEST 

// EXTENT SYS018, DRZOOl 

// DLBL TFINE, 'FINE ANTENNA TEMPORARY AREA' ,68/001 

// EXTENT SYS019, 111111, , , 20,140 

// DLBL TFINEI , 'FINE ANTENNA TEMPORARY AREA' 

// EXTENT SYS019 , 111111 
ASSGN SYSCLB,X'135’ 

// EXEC DR01K 


Lead Card 
Start Card 

0-50 Correction Cards 

Fine KS1 Cards - one for each plate In the calibration 

/* 

/* 

/& 

** Both cards must contain exactly the same punches between the 

quotation marks and they must exactly match what was used on the 
corresponding cards in Program DR01J. 


Note: The correction cards must be in the order in which the points addressed 

are written on the disk. 

Figure C-25.— Fine-antenna data control cards and input deck for DR01K. 


136. 500', 68/001 
136.500’ 
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// ASSGN SYS001,X'132' OUTPUT FILE - COMBINED AMBIGUITY 

// ASSGN SYSOQ2,X'133' POLAR AMB 

// ASSGN SYS003,X'133' EQUATORIAL AMB 

// ASSGN SYS004,X'131' WORK FILE 

** // DLBL SORTIN1, 'AMBIGUITY WINK EQ 137.500* 

$ // EXTENT SYS002, DRZ001, , ,2975,5 

** // DLBL S0RTIN2, 'AMBIGUITY WINK POL 137.000* 

$ // EXTENT SYS003.DR2001, , ,2925,5 

// DLBL SORTOUT , ’ EQU AND POL AMBIGUITY DATA', 69/001 
// EXTENT SYSOOl, 111111,,, 500, 40 
// DLBL S0RWK1,, 69/001 
// EXTENT SYS0Q4, 111111, , ,20,40 
// EXEC SORT 

$$ 70001 SORT FIELDS=(53,3,CK,A,l,4 ) FL,A,5,4,FL,A,9,4,FL,A},FILES=2,WORK*‘l 

70001 RECORD TYFE=F, LENGTH- (56, ,56) 

70001 INPFIL BLKS1ZE=(1680) 

70001 OUTFIL BLKSIZE=(168Q) 

70001 OPTION PRINT=ALL 
70001 END 

// ASSGN SYS018,X'132' 

// ASSGN SYS019 ,X* 132-' 

// DLBL AMBIN.’EQU AND POL AMBIGUITY DATA' 

// EXTENT SYS018 , 111111 

// DLBL MjDUT, ’MEDIUM TEMPORARY AREA’, 68/001 
// EXTENT SYS019, 111111, ,,540, 40 
// DLBL M_IN, ’MEDIUM TEMPORARY AREA' 

// EXTENT SYS019 , 111111 

// DLBL C_OUT, 'COARSE TEMPORARY AREA' ,68/001 
// EXTENT SYS019, 111111, ,,580,40 
// DLBL C_IN,' COARSE TEMPORARY AREA* 

// EXTENT SYS019,llim 

ASSGN SYSCLB.X' 135 ' 

// EXEC DR01K 

Lead Card 
Start Card 

Ambiguity KS1 Card for Plate i repeated for 
Minitrack data Cards for Plate i i=l to i=n 


/* 

/* 

/& 

** Both cards must contain exactly the same punches between the quotation 
marks and they must exactly match what was used on the corresponding 
cards in Program DR01J. 

$ The extent must match what was used on the corresponding card in 
Program DROIJ. 

$$ The number of files in this example is two. If only one is to be 
processed put FILES=1 on this card. 

Figure C-26.— Ambiguity-antenna data control cards and input deck for DR01 K, sorted. 
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// ASSCN SYSOl8,X'132 f 
/; ASSGN SYSG19 ,X f 132 r 

The 4 title cards from Program DR01J 
// DLBL M OUT, 'MEDIUM TEMPORARY AREA 1 ,68/001 
// EXTENT "SYS019 ,111111, , ,540,40 
// DLBL M IN, ’MEDIUM TEMPORARY AREA’ 

// EXTENT SYS019 ,111111 

// DLBL C_OUT , 1 COARSE TEMPORARY AREA 1 ,68/001 
// EXTENT - SYS019, 111111, , ,580,40 
// DLBL C_IU, ‘COARSE TEMPORARY AREA' 

// EXTENT SY SO 19, 111111 
ASSGN SYSCLB,X'135' 

H EXEC DR01K 

Lead Card 
Start Card 

Ambiguity K.S1 Card for Place i repeated for 
Mini track data Cards for Plate i i~l to i=n 

/* 

/it Figure C-27.-Ambiguity-antenna data control 

cards and input deck for DR01 K, unsorted. 


Tabular Output 

The number of listings of fine data to be generated is specified on the Start card (col- 
umn 52). Two listings of medium and coarse data are always generated for ambiguity data. 
A sample output is shown in figures C-28 to C-30. 

Disk Output 

There is disk output for fine data only. It is written on the same area of the Minitrack 
disk from which the input data were read. 

The first record of fine disk output will contain the Start card information, which will 
be assigned to the input record variables in the following manner: 

AC = FINEKCA 
BC = FINE_KCB 

AM = FREQ (a “get string” must be performed) 

HR = YR 
MN = MON 
DEC = DY 

CODE will be set equal to 9 to indicate a Start card record. 

The output data record is the same as the input record, except that the input dummy 
data in bytes 104 to 136 are replaced by output from this program. The disk output is 
used by program DR01E. 

Accuracy and Limitations 

Camera and Minitrack values, residuals, and average calibration constants are rounded 
to the third decimal place by adding 0.005 times the sign (- 1 or +1) of the variable. The 
residuals are multiplied by 1000 before being listed. 
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STATION 

KC A 

KCB 

FREQ 

CAL 13 DATE 



0011 

50.097 

*9. 86A 

136515 

723216 


TEST P 

UT 

AC 

BC 

AH 

0M 

RA 

R3 


19 

27 

6.200 

- 2.076 

4 , 628 

48.018 

54.495 

3 

-3 

19 

2 7 

6 . *09 

- 2.065 

4*426 

48.029 

54.290 

3 

0 

19 

27 

6.600 

* 2.054 

4.234 

48.042 

54.097 

1 

1 

19 

27 

6.800 

- 2.042 

4.042 

48.054 

53.907 

1 

-1 

19 

27 

7 . 0 C 0 

- 2.031 

3.849 

43.065 

53.715 

1 

-2 

19 

27 

7.200 

- 2.020 

3 . 6*7 

48 .075 

53. 521 

2 

0 

19 

27 

7 . 4 C 0 

- 2.010 

3.454 

43,083 

53 . 315 

4 

3 

19 

27 

7.600 

- 2.000 

3.261 

48.093 

53.122 

4 

3 

19 

27 

7.800 

- 1.990 

3 . C 68 

48.104 

52.932 

3 

0 

19 

77 

8.000 

- 1 . 9 SC 

2.875 

48. 116 

52.741 

1 

-2 

19 

27 

8.200 

- 1.970 

2.681 

48 . 127 

52.547 

-0 

-1 

19 

27 

8.400 

- 1.961 

2.4 7 B 

48.135 

52.340 

L 

3 

19 

27 

b .600 

- 1.952 

2.284 

43 , 1 A 1 

52.148 

4 

1 

19 

27 

8.800 

- 1.943 

2 . 09 ] 

43 . 150 

51.957 

4 

-2 

19 

27 

9.000 

- 1.935 

1 . 0^7 

48.160 

51.766 

2 

-5 

19 

27 

9.200 

- 1.926 

1.703 

48 . 171 

51.572 

0 

-5 

19 

27 

9.400 

- 1.917 

1.500 

48 . 180 

51.365 

c 

-l 

19 

27 

9. *00 

- 1.909 

1.306 

43.188 

51.172 

0 

-2 

19 

27 

9 . 800 

- 1.901 

1.112 

40 .194 

50 . 9 B 9 

2 

-A 

19 

27 

IC.CCO 

- 1.893 

• 918 

48,201 

50.787 

3 

—5 

19 

27 

10.200 

- 1.806 

. 724 

4 8 . 209 

50.592 

2 

-A 

19 

27 

11.000 

- 1.854 

-.^62 

48.244 

49.803 

-1 

-0 

19 

27 

11.200 

- 1.845 

-.256 

48.250 

49,609 

2 

-1 

19 

27 

1 1 . ACC 

- 1.838 

-.450 

48.256 

49.412 

3 

2 

19 

27 

11.600 

- 1.929 

-.654 

48 . 2 t >5 

49.207 

3 

3 

19 

27 

1 1 .300 

- 1.021 

-.847 

48.275 

49.014 

i 

3 

19 

27 

12.000 

- 1.813 

- 1.041 

48.285 

48.824 

-l 

-1 

19 

27 

12.200 

- 1.805 

- 1.235 

40.294 

40 .632 

-2 

-3 

19 

27 

13.000 

- 1.773 

- 2 . C 18 

48.322 

47.850 

2 

-A 

19 

27 

13.200 

- 1.764 

-2.211 

48.332 

47.657 

1 

-A 

19 

27 

13.400 

- 1 . 756 

- 2.404 

48.342 

47.462 

-l 

-2 

19 

27 

13.600 

- 1.747 

- 2.607 

48.352 

47.255 

-2 

3 


P STA PLATE 

1 0011 301 


Figure C-28.-Sample tabular output of fine-antenna data for DR01K. 



VO 

to 


STATION KCA 

0011 50.423 


ur ac 


20 

0 

32.000 

-.079 

20 

0 

33.000 

-.078 

20 

0 

34.000 

-.076 

20 

0 

35.000 

-.074 

20 

0 

36.000 

-.072 

20 

0 

37.000 

-.069 

20 

0 

38.000 

-.065 

20 

0 

39.000 

-.061 

20 

0 

40.000 

-.057 

20 

0 

41.000 

-.053 

20 

0 

42.000 

-.049 

20 

0 

43.000 

-.044 

20 

0 

44.000 

-.040 

20 

6 

1.000 

.292 

20 

6 

2.000 

.279 

20 

6 

3.000 

.26 5 

20 

6 

4.000 

.251 

20 

6 

5.000 

.237 

20 

6 

6.000 

.223 

20 

6 

7.000 

.208 

20 

12 

1.000 

-2.504 

20 

12 

2.000 

-2.502 

20 

12 

3.000 

-2.500 

20 

12 

4.000 

-2.498 

20 

L2 

5.000 

-2.496 

20 

12 

6.000 

-2.494 

20 

12 

7.000 

-2.491 

20 

12 

B *000 

-2.489 

20 

12 

9.000 

-2.486 

20 

12 

10.000 

-2.483 


KC8 

FKEQ 

50.580 

136514 


BC 

AM 

• 437 

50.340 

• 3 85 

50.340 

• 334 

50.340 

.282 

50.350 

• 230 

50.350 

• 178 

50.350 

.126 

50.360 

.074 

50.360 

• 022 

50.370 

-•030 

50.370 

-.082 

50.370 

-.134 

50.380 

-.186 

50. 380 

• 091 

50.720 

• 153 

50. 7 CO 

• 216 

50.690 

• 278 

50. 600 

.340 

50.660 

• 402 

50.650 

• 464 

50.630 

.417 

47.920 

.377 

47.920 

.336 

47.920 

• 295 

47.930 

.254 

47.930 

• 2 12 

47.930 

.171 

47.930 

.128 

47.940 

.086 

47.940 

.044 

47.940 


CALIB OATE 

710302 


BM RA 

51.030 4 
50.980 5 
50.924 6 
50.870 -2 
50.820 1 
50.784 4 
50.710 -2 
50.660 2 
50.610 -4 
50.560 -0 
50.510 4 
50.460 -2 
50.410 3 

50.656 -5 
50.722 l 
50.766 '2 
50.846 -6 
50.912 -0 
50.976 -5 
51.036 l 

50.996 -1 
50.956 l 
50.916 3 
50.876 -5 
50.830 -3 
50.786 -1 
50.746 1 
50.706 -6 
50.666 -3 
50.626 -0 
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-15 
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8 
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0 
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Figure C-29.— Sample tabular output of medium-antenna data for DR01K. 



STATION KCA KCB 


FREQ CALIB DATE 


COARSE 


w 




0011 

50.193 

49.850 

136514 



OT 

AC 

BC 

AH 

10 

0 

32.000 

-.075 

.377 

50.120 

20 

0 

33.000 

-.074 

,332 

50.128 

20 

0 

34.000 

-.072 

.266 

50.130 

20 

0 

35.000 

-.071 

.241 

50.130 

20 

0 

36.000 

— » 06 B 

.196 

50.130 

20 

0 

37.000 

**•066 

.150 

50.130 

20 

0 

38.000 

-,062 

.105 

50.130 

20 

0 

39.000 

-.059 

.059 

50.138 

20 

0 

40.000 

-.055 

.013 

50.140 

20 

0 

41.000 

-.052 

-.032 

50.140 

20 

0 

42.000 

-.048 

— .078 

50.148 

20 

0 

43.000 


-.123 

50.150 

20 

0 

44.000 

-.0*1 

-.169 

50.150 

20 

6 

1.000 

.250 

.074 

50.442 

20 

6 

2.000 

.238 

.129 

50.432 

20 

6 

3.000 

.226 

.103 

50.422 

20 

6 

4.000 

.21* 

.230 

50.404 

20 

6 

5.000 

.202 

.292 

50.392 

20 

6 

6.000 

. LB9 

.346 

50.382 

20 

6 

7.000 

.177 

.400 

50.372 

20 

12 

1.000 

-2.193 

.361 

48.000 

20 

L2 

2.000 

-2.191 

.326 

48.000 

20 

12 

3.000 

-2.189 

.290 

48.008 

20 

12 

4.000 

-2*188 

.254 

48.010 

20 

12 

5.000 

-2. 186 

.218 

48.010 

20 

12 

6.000 

-2.184 

. 182 

48.010 

20 

12 

7.000 

-2.182 

.145 

48.018 

20 

12 

8.000 

-2.180 

• 108 

43.020 

20 

12 

9.000 

-2.177 

.071 

48.020 

20 

12 

10.000 

-2.175 

.034 

48.028 


710302 


BM 


RA 


50.230 
50.184 
50. HO 
50.090 
50.044 
50.000 
49.954 
49.910 
49.864 
49.020 
49.774 
49.730 
49.684 



49.914 
49.970 
50. 024 
50.030 
50.134 
50. 190 
50.244 


2 

-1 

-3 

4 

3 

0 

-3 


50.218 

50.184 

50.148 

50.114 

50.078 

50.044 

50.004 

49.968 

49.934 

49.894 



RB P STA 

-4 0011 

-3 
-4 
1 
1 

-0 

0 

-I 

-1 

-3 

“2 

-4 

-J 

9 0011 

6 
9 
8 
8 
6 
6 

-7 0011 

-8 
-8 
-10 
-10 
-13 
-9 
-10 
-13 
-11 


Figure C-30.-Sample tabular output of coarse-antenna data for DR01 K. 


PLATE 

002 


003 


004 



No more than nine listings of fine data may be printed in one program execution; 7500 
fine data points, 900 ambiguity data points, and 30 plates of fine data in one file can be 
processed. 


Problem Statement 

Program DR01E determines the coefficients in nine sets of equations relating fine- 
antenna Minitrack data A m and B m to the corresponding values A c and B c computed from 
camera data. The coefficients are determined by the method of least squares, and residuals 
are computed to serve as indicators of the reliability of the equation sets. An option is 
provided to generate a tape for the CalComp plotter to display residuals that are not com- 
puted from the equations but which are simple differences. 


Program Description 

The program can be used either for a regular station calibration to compute new co- 
efficients or for a historical comparison; that is, to show what sort of residuals would result 
from applying coefficients from a previous calibration to the data from the present calibra- 
tion. One Lead card and a Minitrack data disk generated by the PROOFREAD program 
(DR01K) are used in either case. For historical runs, the input also includes cards that give 
the coefficients to be used. The flowchart in figure C-31 describes the program fully. 
Equation numbers 1 through 9 in the flowchart refer to equations (C-28) to (C-36), 
respectively. 

Following is a list of symbols used in DR01E. 


Symbol 

Aa n 


AUT 

A„ 


i 

A b 


o 


AUT 




kc a 

KC, 


B 


n 'b 

R 2 

UT 


Definition 


Rate of change of A c 

East-west camera value 
East-west Minitrack value 

Rate of change of B c 

North-south camera value 
North-south Minitrack value 

Course of calibration aircraft measured clockwise from east 

East-west calibration constant 

North-south calibration constant 

East-west fine antenna baseline, in wavelengths 

North-south fine antenna baseline, in wavelengths 

Range of calibration aircraft from center of fine-antenna system 

Time of data point in Greenwich mean time 
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Figure C-31 (continued).— Flowchart for DR01E. 
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Figure C-31 (concluded).— Flowchart for DR01E. 


The variables and KC g are given in the first record of the input disk file for a regular 
calibration or on the Lead card for a historical run. All other items are given in the data 
records of the .nput disk file. 

Computation of Calibration Coefficients 

A least-squares solution using all data points is obtained for the following equations: 

A =C 0 +C 1 X + C 2 Y (C-28a) 
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(C-28b) 


B = C' Q +C[X + C^Y 

A = C 0 + C 7 X + C 2 Y + C 3 XY + C 4 X 2 + C 5 Y 2 (C-29a) 

b = c' + c[x + c' y + c; Ay + c;a 2 + c; y 2 (c-29b) 

^ = c 0 + C t A + C 2 r + C 3 A7 + c 4 A 2 + c 5 Y 2 + c 6 7 3 (C-30a) 

B = C' + c; A + C\ Y + C' Ay + c; A 2 + C' y 2 + ^ y 3 (C-30b) 

^ = c 0 + C\ A + c 2 y + c 7 sin (A) + C g cos (A) (C-31a) 

B = Cq + C| A + C 2 y + sin (A) + C g cos (y) (C-3 1 b) 

,4 = c 0 + Cj A + c 2 y + c 3 Ay + c 4 X 2 + c s Y 2 + c 7 sin (A) + c 8 cos (A) (C-32a) 

B = Cg + C[ X + c' 2 Y + C 3 Ay + C 4 A 2 + c' s Y 2 + C' sin (*0 + Cg cos (A) (C-32b) 


yl = c 0 + c x X + c 2 y + c 3 Ay + c 4 A 2 + c 5 Y 2 + c 6 Y 3 + c 7 sin (A) + Cg cos (A) (C-33a) 

b = c ’ + a + c 2 y + c 3 Ay + c 4 a 2 + c' y 2 + c' y 3 + c; sin (y> + c' cos (y> (c-33b> 


^4 - C Q + C 9 


flV 1 -E 2 

— (- sin P) cos j3 


L^2 


R, 


(\ -E 2 EN 
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\ Aa 0 

+ C. 0 I sin p — cos/3 +C n 
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( EN \-N 2 \ ( EN \-N 2 \ Ab Q 

B = C' 0 + C' 9 ^ — cos p + sin pj + C[ Q — sin 0 + cos PJ + C[ t 


A C 0+ C 9 
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U. 
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0 

AUT 
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(C-34a) 


(C-34b) 


(C-3 5 a) 


(C-35b) 


(C-3 6a) 


(C-36b) 
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For equations (C-28) to (C-33), set 


A =A c 
B = B C 


For equations (C-34) to (C-36), set 


A =A C + KC a - A m 
B=B c +KC e -B m 

Other terms in the equations are defined as 

Y = B m -KC B 

( X ) = 2irX 

(Y) = 2nY 

A 

E = — 

K 

% 

B = tr/2 - C 

The above equations are applicable only to an equatorial calibration. For a polar cali- 
bration, A -3 must be substituted for Y 3 in equations (C-30) and (C-33). 

Residuals 

The residuals are computed for each data point. They are defined for equations (C-28) 
to (C-33) as 








B; 
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where A c _ and B c . are the camera values for data point i and A. and B. are computed from 
the jth set of equations, using the predetermined coefficients and the Minitrack values for 
point i. 

For equations (C-34) to (C-36), the residuals are computed by the equations 

R A =ra r Ai 

^B. = r ^i ~ 

where ra ( and rb j> the simple residuals, are defined as 

M l =A c l ’ KC A ~ A tn ■ 

rbi =B Cj -KC B -B mi 

The rms of all residuals is computed as 



where N - number of data points and the summation is over all points. 

Plotting 

A CalComp tape is generated to produce line plots for 10 by 15-in. paper, one page 
per plate with each page containing two graphs ; simple residuals ra and rb versus A c or B c 
are produced as indicated by a plot code (fig. C-32). The plot code may vary for different 
plates but is constant for single plate with a numerical 1 indicating A c and a numeral 2 indi- 
cating B c is to be used as the abscissa. The abscissa scale (A c or B c ) is 1 in. per unit with 
the scale going from - 5 to 5 wavelengths. The ordinate scale (ra or rb) goes from - 30 to +30 
counts (1 count = 0.001 wavelength) with 1 in. equal to 10 counts. A data point whose 
residual exceeds 30 counts in absolute value is omitted and the plot line broken to indicate 
a missing point. Axes are labeled, and scales printed. Plate number, frequency, and calibra- 
tion date are also written on each page. 

Program Phases 

DRZ01E, the main phase, handles the card input and calls the other phases. 

The Minitrack disk is input for COEFFC, the second phase, in which the least-squares 
equations are solved. The matrices and vectors used in the solution of the A and B sets are 
printed here. 
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Figure C-32.— Example of CalComp plot of ra and rb versus A c or B for DR01 E. 

The equations and their coefficients are printed in the third phase, PRINT. Coeffi- 
cients cards are also punched here. 

In the fourth phase, RESIDL, the coefficients computed in COEFFC or entered on 
the Lead card and the data from the Minitrack disk are used as input to compute the resid- 
uals for all sets for each data point. Equations (C-28) to (C-33) are printed as computed. 
Equations (C-34) to (C-36) are saved on disk and printed after all points have been proc- 
essed. Plot data are also saved on the disk if plotting is to be done. 

In the fifth, DRZPLT, a plot tape is generated from the disk file written in RESIDL. 
Input 

The input for a regular calibration is a Lead card and one Minitrack disk file of fine 
data (output from the PROOFREAD program). For a historical comparison, the input is a , 
Lead card, a deck of coefficients from the previous calibration, and the disk file previously 
mentioned. 

Card Deck 

Input cards are fully explained in figure C-33. The input deck layout is shown in 
figure C-34. 
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5* <141 41 «» SO 
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t 

r. 

_ 

, 

□ 

J 


fields; 


1 C, 1 - Polar, 0 *» Equatorial 

2 Station Number 

3 KCA, 3 assumed decimals 

4 KCB, 3 assumed decimals 

5 Frequency, 3 assumed decimals 

6 Calibration Date 


’or Historical Comparisons, these fields must contain 
the RCA and KCB of the previous calibration. 


7 P, 1 « Historical, 0 -Regular Computation 

8 SPECIAL ■» blank KCA, KCB and FREQ will be taken from the first disk record otherwise start 

card values will be used. This is a special option to be used with regular Calibrations 
for testing purposes only.. 


All values must be right Justified. 


Figure C-33.— Input card for DR01E. 


// PAUSE 




Historical 
Runs only - 


1 DATA DECK 

~N 

START CARD 





P 1 Regular 
calibrations 
only 


// PAUSE MOUNT SCRATCH ON 283 
// TADSE MOUNT DR2001 ON 133 
// AiSGN S1S003,X'133' 

ASSCN ST5CLB,X*135' 

*// DLBL DISK1,'FINE DATA TITLE 136. 500 1 ,68/001, SO 

**// EXTENT SYS003.DRZ001,, ,2700,25 
// ASSCN SYS004,X*131’ 

// DLBL DISIU/TEMP STORAGE- RESIDUALS \69/100 ,SD 
// EXTENT SYS004 ,111111, » ,2400,300 
U DLBL DISK3,'TEKP STORAGE- B£S LDUALS r ,697100 ,SD 
// EXTENT SYS004, 111111,,, 2400, 300 
// ASSGN SYSOOS.X’m' 

// DLBL PL0TDK, ’ DR201E RISID PLOT DATA T , 697 100, SD 
// EXTENT SYS006, llllli, , ,2700,300 
// ASSCN SYS013,X t 283 , ,X'28’ 

// MTC VTM,SYS01 3,01 
// KTC REW,SYS013 
U EXEC DR01E 
Lead Card 

Coefficient Card Deck - far historical comparison only 

/* 

// PAUSE REMOVE AND LABEL PLOT TAPE 

/4 

* The title between quotes (') oo the card shown must be exactly 
the same as that specified for the DROIK Program 
** The extent on this card must be exactly the same as that for 
the DR01K Program. 


Figure C-34.— Input deck layout for DR01E. 
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Minitrack Disk File 


The first record contains general information: 


Location (bytes) 

Item 

105 to 112 

kc a 

113 to 120 

kc b 

121 to 128 

Frequency 

129 to 136 

Calibration date 

succeeding records contain data, 

one data point per record: 

Location (bytes) 

Item 

1 to 4 

Hours 1 

5 to 8 

Minutes > Data point time 

9 to 12 

Seconds ) 

17 to 24 

A c 

25 to 32 

B c 

33 to 40 

Decimal portion of A m 

41 to 48 

Decimal portion of B m 

49 to 56 

C 

57 to 64 

R 2 

65 to 72 

Aa 0 /AUT 

73 to 80 

A6 0 /AUT 

81 to 88 


89 to 96 

N'b 

97 to 100 

Station number 

101 to 103 

Plate number 

104 

Plot code 

105 to 112 

ra 

113 to 120 

rb 

121 to 128 

A m 

129 to 136 



Output 

The regular output consists of a tabular listing, a card deck, and, if requested, a plot 
tape. The historical comparison consists of a tabular listing only. 

Tabular Listing 

The station number, KC A , KC B , frequency, and calibration data are printed at the top 
of each page for identification (fig. C-35). For a regular calibration, the coefficient matrices 
and the data vectors used in solving equations (C-33) and (C-34) are listed. Then for each 
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CuUATORl Al CAUbRATIQN 


05/25/72 


ST A 15 


KC A ■ 50.069 


KC 0 *99 .976 FREQ -136.500MC DATE OF CAL I BRAT [ON 720315 


EQUATION SET 6 
ELEMENTS OF MATRIX A 


COL 

L 

1.7900006*02 

COL 

2 

*2* 71 93 76t + 01 

CUL 

3 

2.903 /39E+03 

CUL 

9 

*1 .24182/6+02 

COL 

5 

8.9100186+02 

LUL 

6 

7.6051 Q2E+G4 

CUL 

7 

2. 1 96901 E +06 

COL 

0 

*O.5Jb9J9t+O0 

COL 

9 

1. 137 7 606*00 


-2* 71 93 76E* 01 
8*9100181+02 
•1.291627E+02 
1 . 5100 Id E +09 
-W07b5W£ + 02 

-1.9ioll7fc+03 

-3.765252E*09 
*1.5690 79fc + 01 
3.891668E+00 


2.903739E *03 
- 1. 29 Id 2 7t + 02 
7.8Q5102E +09 
-1.9l6UfE + 03 
• 1.518<U6E*09 
2,19b90lE*06 
6.2 700b5E*07 
*1 • 51 23 8QE + Q2 
1*1015 18t*02 


-1*2918276 + 02 
1 .5160186*09 
-i,9ibl I7t >03 
A. 1525 /36+05 
2.5831236*03 
-3. 765252C+Q9 
-6* 1998386+05 
*2.9594l9£>02 
1.3tt3315fc+02 


8.9 L0Q18E +02 
“1 • Q 7659 7 1 *02 
1. SldOldE *09 
2. 5 9 31 2 3L : *03 
8. l4abt>6E*01 
9.1525936+05 
1.1 696 37E + 07 
*2.6099356+01 
2.569690E+03 


7 * 80 5 1 02 fc *09 
-1.916117E+03 
2. 19(j90 IE *0 6 
*3. 765252£*0<. 
9. 152593£*05 

6.270065E+07 
1- 809593fe*09 
-9 .908600 1 +03 
2.8369366 ♦ 03 


2.196901 E+06 
-3.765252E+09 
6.2 7C065E+Q7 
-6 » 1998 30 E + 05 
1.1*463/6*07 
1.6095936+09 
5.271607E+10 
-i.3?2763E*Q5 
7*072 885E+ 09 


“6.5389J9E+00 
*1.5690/96 + 01 
“ 1 * 512 380 E + 02 
*2.9599 19E*02 
*2.609935E*01 
-9*9086006+03 
-1. 322763E*05 
8. 926 766 1 *01 
*2.9969306 + 00 


1*1 3 7760E + 00 
3 . 89 1688 E * 00 
1.1015186+02 
1. 3833155*02 
2 • 46464CG+00 

2.8369366+03 

7.0/23656*09 
*2 • 99693 CE+ GO 
8. 973239 E* 0 1 


ELEMENTS UF VECTOR A 


-2.719376E *01 «.919090E*02 * 1 . 29260*6 *02 1.518B38E+D9 *1 .0 71 962 1 *02 *1*911 8386+03 *3.7302896+09 -1.56922 36*01 3.5680056*00 


ELEMENTS OF MATRIX 8 


LUL 1 1.7900uC£+02 
COL 2 -2. 7193766 +01 
CUL 3 2*90 it 39t *03 
COL 9 •1.2918276*02 
COL 5 8*91001 at *02 
LUL 6 7.8051026*09 
COL 7 2*1 969016+06 
COL 8 1.0886516-01 
COL 9 -6* 3923216+01 


-2. 7193766*01 
6.91001 86 + 02 
*1 .291 82 7E + 02 
1 .5180166*09 
-1.076597E+02 
-1.9UU76*03 
-3. 7652526*09 
-1, 1597166*01 
*5.0189166*01 


2* 90 37 396+03 
1.29U27E + 02 
7 .60 5 102E + 09 
1.9 1611 ?fc*03 
1. 5180166 *09 
2 » 196s0 1 1 *06 
6.270065E+07 
1.8596 i**± *02 
■1 .2906266*03 


-1.2918276+02 
1 *5180 166+09 
- 1 .916 1 1 7E *03 
9. 1 52 593 O 05 
2.5631236*03 
-3* 7652 52E* 09 
-6.l9983ttfc + 05 
-9.9U026t*02 
“2.9263 15E + 0 i 


6.9iooiee*o2 
“1.0765s7E+02 
1.5180 18E*09 
2.583L23L+0J 
8 . I 986 68 E *0 3 
9.152 5936 + 0> 
U 1896 376 + 0 7 
9 *3316616 +01 
-3.029851C+02 


7. 8051026 + 09 
* 1.9161WC + 03 
2.1964016+06 
-3. 76>252fc*09 
9. 1^25 93 E *05 
6. 2700656+07 
1.8C9593E+09 
1*02 769/ £ + 0 9 
“3* 76 5 930 £ + 09 


2.196901E+06 
-3. 765252E + 09 
6.270065E+07 
*6.1998306*05 
1. 18963/E+07 
1.809593 6*09 
5 .27 1607 6+ 10 
9. 97 59 78E + 05 
“ 1 • 1067 i6E*06 


1 , 08 86 51L - 01 
-1.159716E+01 
UQ59639E + 02 
-9,9190266*02 
9. 331661E+01 
1.027o9/t*09 
9.97S978E+0S 
9* 500968 E + 0 1 
3. 6337296*00 


-6. 39232 01 
-5.01 89 16 E* 01 
-1.29C626E*03 
*2.4263 l5t*0 3 
-3. 029b5iE*02 
*3 . 7654306*59 
-1. 106? 

3.633?24£+00 

8, 399032C + O1 


CLEMENTS OF VECTOR 6 


2. 9037396+03 - 1.292632E+02 7.8050276*09 *1 .9100036+33 1.5180996*09 2.L96903E+06 6.2701276+07 1.8398306*02 -1 .290897E+03 


Figure C~35.— Sample output listing of regular calibration for DR01E. 
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CttUATUKtAL CALIBRATION 05/2S/T2 

SIA 1* KC A KC 6 «69.976 FRE<J "136.S00MC OATS OF CALIBRATION 72031) 


fcyUATlUN St T 7 
ELEMENTS OF MATRIX A 

COL i U79000QE*02 -i •29727QE-06 l,22*57bE-06 3.5373A7E+00 

CUL 2 -l«2972 7Jfc-0<r 6 . J93667E- 10 6*a7tiW7fc-09 9. 9dSl 1 SE-05 

COL 3 L *22*5 78E-06 6*870977E-O9 2 . 1 6SS >8 t-0 7 A* 6062926-03 

COL 6 3.S37387E+QQ 9.98SU5E-0S A. S0«*292E-0 3 9.370397E+01 

ELEMENTS OF VECTOR A 

-3.943512E-13 7*9721266-08 5 . 9398Q6E-06 U 231659 E-01 

ELEMENTS OF MATRIX ti 

COL 1 1 • T90000E *02 -2* QB2606E-04 6.6635JIE-0S 1.622388E+00 

CUL 2 -2* 082606E-06 | •6068<* 3E-Q7 -6 * 5296f> OC-3 9 -1 * 1 637>dE-04 

COL 3 6*66353 1 E-OS -5 « 5296^06-09 4*7210.156-10 9.B5825J6-Q6 

COL 4 l*<t22J86t»QQ -1 .1437686*04 9*8582536-06 2. 0590896-01 

ELEMENTS Of VECTOR tt 

-1*62 IO05E-13 -3.988377E-06 1.794U2E-0 7 3*82963SE-03 


Figure C-35 (continued). -Sample output listing of regular calibration for DR01E. 
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EglMTUAIAl CALIBRATION 


05/25/72 


STA 15 AC A -50*064 AC tt -49.976 F Ktg -1J6.500HC DATE Of CALIBRATION 720315 


EUOAT1UN SET 1 

A - CO * Cl X ♦ C2 V 

CO - *19622654 X 10*-3 

Cl - *10004616 X 10* 1 * 1 * 

C 2 - -.76938336 X 10*-5 - 5 

A - CO * Cl X ♦ C2 Y 

CO « . 36542865 X l0*-3 

Cl • - .8245*239 X l0*-4 - 4 

C2 - .99997670 X 10* 0 


EUUAT ION SET 2 

A « CO * Cl X * C2 Y ♦ C3 XY ♦ C4 X*2 * C5 7*2 


CO 

M 

.92059752 

X 

1 0 *-4 

- 

L 

Cl 

m 

.10003667 

X 

10* l 

♦ 

1 

C2 

» - 

.28363223 

X 

1 0*-3 

- 

3 

C3 

m 

.51 199616 

X 

10 *-5 

- 

6 

C4 

• 

.11962400 

X 

10*-J 

* 

6 

C5 

M 

.9111 30 03 

X 

10*-5 

- 

8 

CO < 

► Cl 

X ♦ C2 t 

♦ C3 XY * 

C4 X*2 

CO 

■ 

.l9l426<:9 

X 

kO*-2 

* 

1 

Cl 

C2 

m 

• 79706034 
.99893554 

X 

X 

1 0*-3 
10* 0 

— 

3 

C3 

m 

•40682832 

X 

10*-4 

- 

7 

C4 

m 

.11548078 

X 

10*-4 

- 

7 

C 5 

m 

.34666353 

X 

10*-4 

- 

7 


E00AI10N SET 3 


Figure 035 (continued).— Sample output listing of regular calibration for DR01E. 
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A • CO ♦ Cl X ♦ C* r ♦ C3 XV ♦ C4 X*2 ♦ C5 Y*2 ♦ C6 

CO - -.18664674 X 1Q**2 ♦ l 

Cl - .1000411/ X 10* l ♦ l 

C2 * .143/3360 X 10**2 - 2 

C 3 * .30547584 X 10**5 - a 

C4 * • 1137/^0^ X 10**3 - A 

C5 - -. 11464754 X 10**3 “ 6 

C6 - #22851145 X 10**5 -II 

ft « CO Cl X * C2 Y ♦ C3 XY * C4 X*2 ♦ C5 Y*2 ♦ C6 V*ft 

CO * #56077944 X 10**2 * l 

Cl « -•88370764 X 10**3 - 3 

t 2 - *99561971 X 10* 0 

C 3 - .44661898 X 10**4 * 7 

C4 « .22 823162 X 10**4 - 7 

C 5 « *21331486 X 10**3 - 6 

C6 « -#44027736 X 10*-5 -ll 


EQUATION SET 4 

A * CO * Cl X * C2 Y ♦ C? STN4XI ♦ Cft COSiXT 


CO • .84369102 X 10 *— 4 - l 

Cl » *10004823 X 10* 1 ♦ l 

C 2 - • 1 7 62C471 X 10**5 - 5 

C 7 - .65244553 X L0*-3 

C8 • -*30585235 X lO*-2 ♦ 1 

ft • CO * Cl X ♦ C2 Y * C7 SINtYI ♦ C8 COSUl 

CO - -.62495176 X 10**3 

Cl - -.34972694 X 10**3 - 3 

CZ - .99994224 X 10* 0 

Cl • .43807431 X 10**3 

tft - -#42241919 X 10**2 * 1 


EQUATION SET 5 

Figure C-35 (continued). -Sample output listing of regular calibration for DFtOIE. 



A ■ CO ♦ Cl * * CZ V * C3 XV ♦ C4 A*2 * CS V*2 ♦ C? SI N (X) * C8 COS (XI 


CO 

* -.0994303# 

X 

10*-4 

- 

1 

Cl 

- .100U3656 

X 

10* l 

♦ 

i 

C l 

* -.2*4 02505 

X 

l0*-3 

- 

3 

C 3 

- .70342403 

X 

10*-5 

- 

a 

C4 

- *11467065 

X 

10*-3 

- 

6 

C5 

* .748/6756 

X 

10*-5 

- 

0 

C7 

- .56109095 

X 

10**3 



ca 

» -.30231744 

X 

l0*-2 

♦ 

1 


B • CO ♦ Cl A ♦ C2 V C3 XV * C4 X*Z «■ CS V*Z ♦ Cl SIN (VI ♦ CO COS (VI 


CO 

m 

.12 669 701 

X 

10*-2 

♦ 

1 

CL 

m 

*.54032534 

X 

10*-3 

- 

3 

C2 

m 

.99077502 

X 

10* 0 



C3 

m 

.15931412 

X 

10 * -4 

- 

7 

C 4 


. 7823b507 

X 

10 * — 4 

- 

7 

C5 

» 

.39023781 

X 

10*-4 

- 

7 

CT 

m 

-.17155679 

X 

l0*-2 

♦ 

1 

ca 

m 

-.21296327 

X 

10**2 

♦ 

1 


o 

oo 


COUAriON St 7 6. 

A • 10 ♦ Cl X ♦ CZ V » CJ XV ♦ C4 X*2 * CS Y*2 ♦ C6 V*3 ♦ C7 SIN (XI ♦ C8 COS (XI 


CO 

• 

19635039 

X 

10**2 

♦ 

l 

Cl 

m 

. 1000399 5 

X 

10* l 

♦ 

l 

C2 

m 

.14239020 

X 

L0*-2 

- 

2 

C 3 

a 

• 504/6605 

X 

1 0*-5 

- 

a 

C4 

M 

.10097120 

X 

10*-3 

- 

6 

C5 

m 

-. 11 110931 

X 

10*-3 

- 

6 

C 6 

m 

.21903153 

X 

10*-5 


U 

CT 

m 

.60665 725 

X 

10 *-3 



Cfl 

m 

-.299H3505 

X 

!0*-2 

* 

1 


a • CO ♦ Cl x » CZ V ♦ C3 XV ♦ C4 **2 ♦ CS V*2 * C* V*3 ♦ CT SIN IV I ♦ CS COS (VI 


CO 

Cl 


-.56294114 

-.41546325 

X 

X 

1— »“> 

0 o 

* • 

1 i 

- 

3 

C2 


. 10001667 

X 

10* 1 

♦ 

1 

C 3 


• 57 652946 

X 

10*-5 

- 

8 

C4 


.98477153 

X 

10+-4 

- 

7 

C 5 


-.64269339 

X 

10*— 4 

- 

7 

C6 


.19 020796 

X 

10*-5 

- 

n 

C 7 


-.25140077 

X 

10*-2 

♦ 

i 

ca 


-♦*1973224 

X 

10*-2 

4 

i 


Figure C-35 (continued).-Sample output listing of regular calibration for DR01E 
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EQUAfUAiAL CAL IbRAT ION 05/25/72 

STA IS KC A -50.069 KC 6 -99.976 FREQ -L36.500MC DATE OF CAL I tilt AT ION 720315 


EMUATIUN^SET^I #1 ^ slN B|- H.E2I/R ♦ COS til ♦ CIO (U-E21/R * SIN S - CN/R • COS 01 ♦ CI1 OEL AO/OEL UT 

CO * -.69179189 X 10*-5 
C9 - -. 18779021 X 10* 3 
CIO • *59858836 X 10* 3 
Cil —.27257019 X 10*-1 

0 * CO ♦ C9 IEN/K * 401$ til ♦ 41-N2I/R * SIN Bl» CIO l-EN/A * SIN ti ♦ U-N2J/R * COS til ♦ CU OEL tiO/0€L OT 

CO » -*50513636 X 10*-3 
C9 - -.99239216 X 10* 2 
UO —*59068289 X 10* 5 
CIL - .28610385 X 10* 1 


EQUATION SET 8 

A - CO * C9 IEN/R *1-SIN B»- U-E21/R * COS til * CIO U1-E2I/R * SlN 8 - EN/R * COS BJ 

CO • — ♦ 1 1 590899 X l0*-3 
C 9 - -*1311^063 X 10* 3 
CIO - .30999211 X 10* 2 

ti - CO ♦ C9 ( EN/R * 4 COS 01 ♦ U-N2I/R A SIN til* CIO l-EN/R • SIN B ♦ (1-N2I/R ♦ COS til 

CO • -.89697000 X 10*“9 
C9 - -.19167932 X 10* 2 
CIO • .16797668 X 10« 3 


EQUATION St I 9 

A • CO ♦ Cil DEL AO/OEL UT 

CO - -*26039885 X 10*-A 
CIL - *13179258 X 10*-2 


0 - CO * Cil DEL tiO/DEL UT 

CO - -*15637990 X l0*-3 
CU - *19678892 X 10*-1 


Figure 035 (concluded).-Sample output listing of regular calibration for DR01E. 



set, the equations are given along with the computed coefficients written in scientific nota- 
tion (powers of ten) and with a number that represents a modified exponent determined as 
follows: 


Coefficient 


Modified exponent 


c r' 

'■'O’ ^0 

7 + 3 

c,.cj 

c 2 ,q 

y 

y 

c c } 

y- 3 

c c' 

7-3 

c c 1 
S’ 

c c 1 

7-3 

7-6 

c c r 

7 + 3 

c c r 

7 + 3 


y represents the actual exponent. For both a regular calibration and a historical run, two 
residual listings are generated, the first containing residuals from equations (C-28) to (C-33) 
(fig. C-36) and the second containing residuals from equations (C-34) to (C-36) (fig. C-37). 
In addition, the time, A c , B q , A m , B m , ra, and rb are listed for each data point on each of 
the two sets of residual listings. The points are further identified by plate number. Sum- 
mary lines give the rms value of the residuals. 


Coefficient Cards 

For each set, 1 0 coefficient cards are punched. Coefficients are punched in the E 
format with eight decimals in a field 1 5 columns wide (NN.NNNNNNNNE±NN). The first 
card contains the station number, calibration date, set type (A or B), and the first three 
coefficients of equation (C-28) (fig. C-38). Each succeeding card contains five consecutive 
coefficients and the card number in columns 76-80 (fig. C-39). The last card contains a 
dummy value in the last field. 


Plot Tape 

The low-density tape (fig. C-32) for the CalComp plotter described earlier is generated 
with a regular calibration run. 
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EQUATORIAL CALIBRATION 0 5/25/72 

&TA 15 RC A -50*064 ICC 6 -49.976 FKtQ -136 


ur ac 

J>U>*9 

204056. B -3.626 

204B57.0 -3.465 

2048 57*2 - J • 30 3 

204857.4 -3. 140 

204057.6 “ 2.907 

204057*11 -2.026 

204050.0 -2.6U3 

204650.2 -2.499 

204650.4 -2.336 

2O4U50.6 -2.101 

204660.0 -2.017 

204659.0 -i.054 

204W59.2 -1.691 

204059.4 -1.527 

204d5V. 6 -1.363 

204059.0 “1.200 

204900.0 -1.044 

204900.2 -.000 

204900.4 -.716 

204900.6 -.551 

2Q4900.B -.300 

204901.0 -.232 

204902-0 .509 

204902.2 .745 

204902.4 .909 

204903*0 1.401 

204903.2 1.566 

204903*4 1.729 

204903.6 1.0H3 

204903.0 2.049 

204904.0 2.213 

204904. 2 2*377 

204904.4 2.541 


6C 

AM 

BN 

HA 

2*369 

46,434 

52.343 

4 

2*361 

46*596 

52.335 

4 

2. 353 

46. 7*1 

52.327 

1 

2.344 

46.918 

52.318 

-2 

2.336 

47.002 

52. 310 

-5 

2.32d 

47.241 

52. 302 

-2 

2.319 

47.359 

52*293 

3 

2.310 

47.661 

52.265 

4 

2*301 

4/. 727 

52.27* 

1 

2.292 

47. 066 

52.260 

-3 

2*203 

40.051 

52,259 

-4 

2.271 

40.212 

52*250 

-2 

2*264 

48.370 

52.242 

3 

2.256 

40.532 

52.233 

5 

2.246 

40.699 

52 .224 

2 

2*237 

40.050 

52.215 

-i 

2.220 

49.024 

52.206 

-4 

2.210 

49.106 

52.197 

-2 

2. 20 0 

49.345 

52. ldB 

3 

2.20 0 

49.507 

52. 1 70 

7 

2.1*0 

49.673 

52. U9 

3 

2.180 

49.833 

52. 160 

-l 

2.131 

50.650 

52.112 

3 

2.122 

50. b 1 7 

52,102 

-0 

2* 111 

60-97* 

52.092 

-2 

2.000 

51.460 

52.061 

5 

2.071 

51.625 

52.051 

6 

2.061 

61.792 

52.040 

2 

2.050 

51.961 

52.030 

-l 

2*039 

52.114 

52.019 

-0 

2.029 

52.274 

52.009 

4 

2.019 

52.434 

51.993 

7 

2.000 

52.599 

51.900 

6 


NO. 

HIS 

179 


RMS 

RHS 

RMS 

RHS 

RMS 

RHS 

RHS 

HA 

Ra 

KA1 

HOl 

KA2 

KB2 

RAJ 

•003129 

•003077 

• 002956 

•003055 

• 002630 

•001727 

•002730 


Figure C-36.-! 


DATE 01- CALIBRATION 720315 



HAS RHS RMS RMS RMS RMS RMS 

H0i RA4 R64 RA5 R05 RA6 R*6 

.000960 *001967 *001951 *001605 *000734 *001656 *000711 


run for DR01E. 



EQUATORIAL, CALIBRATION 


OW2WTJ 


STA 13 KC A "50.064 KC 0 -49.97* FHEO -136,500*1 DATE OF CALIBRATION 720315 


ur 

AC 

6C 

AH 

BH 

A4 

RB 

RA7 

RB7 

JU8 

ABB 

A49 

ZQ4B5&.8 

-3.626 

2.369 

46.434 

52.343 

4 

2 

3 

3 

3 

3 

3 

204857.0 

-3.465 

2.361 

46.596 

62.335 

4 

2 

3 

3 

3 

3 

3 

204657.2 

- 3.303 

2*353 

46. T6L 

52.127 

1 

l 

-0 

2 

-0 

2 

-0 

20*857.4 

-3.148 

2.344 

46.918 

52.318 

-2 

2 

-3 

3 

-3 

3 

-3 

204657.6 

-2.967 

2.336 

47.082 

52* J10 

-5 

1 

-6 

2 

-6 

3 

-6 

204657 ,d 

-2.826 

2.326 

47.241 

52.302 

-2 

1 

-3 

2 

-3 

2 

-3 

20*658.0 

-2.663 

2.319 

47.399 

52.293 

3 

1 

2 

3 

2 

2 

2 

20*656-2 

-2.499 

2.310 

47. 561 

52.2d5 

4 

0 

3 

2 

3 

1 

3 

204658.4 

-2.336 

2.30 1 

47. 727 

52.276 

l 

0 

0 

1 

0 

1 

-0 

20*658.6 

-2 • Id 1 

2.292 

47. 886 

52.2*8 

-3 

-0 

-4 

1 

-4 

l 

-4 

204 d 56 .8 

-2.017 

2.283 

46.051 

52.259 

-4 

-1 

-5 

1 

*5 

0 

-5 

204859.0 

-1.854 

2.273 

48.212 

52.250 

-2 

-1 

-3 

0 

-3 

0 

-J 

204859.2 

-1.691 

2.264 

46.370 

52.242 

3 

- 2 

3 

-1 

3 

-1 

2 

2 0* d 59 * 4 

-1.527 

2.256 

48.532 

52.233 

5 

-2 

4 

-o 

4 

-1 

4 

204859.6 

- 1*363 

2.246 

48,699 

52.224 

2 

-2 

1 

-0 

1 

-1 

1 

204659. 6 

-i .208 

2.237 

48.856 

52.215 

-L 

-2 

-2 

-1 

-2 

-1 

-2 

26* 90G . 0 

-1.044 

2-226 

49.024 

52.206 

-4 

-3 

-5 

-2 

-5 

-2 

-5 

204900.2 

-.660 

2.218 

49. 186 

62.197 

-2 

-3 

-3 

-2 

-3 

-2 

-3 

20*900.4 

-.716 

2.208 

49. 345 

52.188 

3 

-4 

2 

-2 

2 

-3 

2 

20*900.6 

551 

2.200 

49.507 

52.178 

7 

-3 

6 

0 

6 

-2 

6 

204900.8 

-. 3d8 

2.190 

49, 673 

52.169 

3 

— 3 

2 

-3 

a 

-2 

2 

204901.0 

-.232 

2.180 

49.833 

52.160 

-1 

-4 

-2 

-3 

-2 

-3 

-2 

2049C2.0 

. 5dV 

2.131 

5 0. 6 b 0 

52. U2 

3 

-S 

2 

-4 

2 

-4 

2 

20*902.2 

.745 

2.122 

50. 8 l 1 

52.102 

-8 

-5 

-a 

-3 

-8 

-3 

-9 

204902.4 

.909 

2.111 

50.976 

52,092 

-2 

-5 

-3 

-3 

—3 

-4 

-3 

20*903.0 

1.401 

2.060 

51.460 

52. Oil 

5 

-ft 

5 

— 4 

5 

-4 

4 

20*9,03 « 2 

1.566 

2.071 

5 l , 62 5 

52.051 

6 

-5 

5 

-2 

5 

-3 

5 

20*903.4 

1.729 

2 .0t> i 

51.792 

52.0*0 

2 

-4 

1 

-3 

1 

-3 

i 

204903.6 

1.665 

2.050 

61.951 

52.030 

-1 

— 5 

-2 

-2 

-2 

-3 

-2 

204903.6 

2 .0**9 

2.039 

52.114 

52.019 

-0 

-4 

-l 

-2 

-l 

-3 

-1 

204904.0 

2.213 

2.029 

52.274 

62.009 

4 

-5 

3 

-3 

3 

-3 

2 

204904.2 

2.377 

2.019 

52.434 

51.998 

7 

- 4 

7 

-2 

7 

-2 

6 

204904.4 

2.541 

2.008 

52. 599 

51.968 

6 

-4 

5 

-2 

5 

-3 

5 

204904.6 

2.704 

1.998 

52.765 

51.977 

4 

“3 

3 

-2 

3 

*2 

Z 


NO, 

RMS 

KHS 

RMS 

AMS 

RMS 

RMS 

PIS 

HA7 

K8/ 

RA8 

AaS 

KA 1 ? 

A89 

179 

.002966 

.002678 

.002973 

.00 297V 

.002981 

.003008 



Figure C-37.— Sample output listing of second residual set for regular calibration and historical run for 

DR01E, 


1 2 



i — ' ■ — — — — — - — — - — ■ -■ — • « » ■ * — — ■ ' — 

FIELDISI 

1 Station Number 

2 Calibration Date (YY MM DD) 

3-5 Coefficients 1-3 (Equations C-28 to C-33 for A and B, eight decimals, decimal point punched in third column 

of each field and exponent) 

6 Equation number A or B 

Figure C-38— First coefficient card (A and B sets) for DR01E. 


i 



FIELO(S) 

1-5 Coefficients in consecutive order beginning with equation (C-29) 

6 Card No . 


Figure C-39.— Coefficient cards 2 to 9 (A and B sets) for DR01E. 
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// JOB UK01J HAAS. 3314, 0»1500lSNASA 
// OPTION SYM iCATAL.NGDECK. 

PHASE OAG 1J , ROOT 
// EXEC PL/ l 

* PROCESS Ll STOjNOOPT ,STMT 
0RZC1J5 PROCEDURE OPTIONS! MAIN1 S 

DECLARE START FILE STREAM INPUT 
1SYSIPT.254011, 

fine 


ENVIRONMENT 1 F 1 80 1 MEDIUM 


LOOP: 


AMS 

lst 


FILE RECORD OUTPUT 
( SY SO 18, 231 4 11 , 

FILE RECORD OUTPUT 
(SYS018.23141 1, . . 

FILE PRINT ENVIRONMENT IF11301 MEDIUM 


ENVIRONMENT 

ENVIRONMENT 


1 F ( 3400, 136 1 ME DI UM 


( F (1680,36 ) MEDIUM 


DECLARE 


STA 

PLT 


ISYSLST, 140 31 

1 » 

CHARACTER* 101EXTERNAL. 


DECIMAL* 151 EXTERNAL 


CHARACTER* 41 EXTERNAL, TYPE 
CHARACTER! 3 J EXTERNAL, 

( XC. YC, ALC.OLC, MR, EWC. NSC, VC1 FLOAT 

,NR FIXED BINARY EXTERNALS 
DFi LARE 1 AL( 31 ,DL( 31 , FILL ,PC(61 ,PCP<6 1 JFLUAT DEC1NAL1151S 
DECLARE PLC CHARACTER *4l,DM CHARACTER! I > , 

HR CHARACT ER ( 7 1 , S EG CHARACTER *8), 

MRRllOOl CHARACTER 13 1 EXTERNAL, NMRR EXTERNAL? 

NMRK=CS 

GfcT^ILE l STAKTIEOI T ^SE^TYPE ,QM1 1 A* 81 ,X!21 , Al 10 1 ,X 1 59 1 , All 1 1 S 

IF SEG*’ ADDITION* THEN DOS 

RR=* START '{ 

CALL OVERLAY* *QR01J04* 1 S 
CALL OUTPUT ISEU,RRlS 
ENDS 

OPEN F IL £ ( F IN £ 1 » F I LE 1 A MB 1 5 
ON ENDFILt < START 1 CO TO ALCQVR * 

CET FILE! START1 EDIT 1ST A, PLT ,XC, YC, AL, OL, NR,HR, RR.PLC, DM 1 
( X 111 , A ( 4 1., X* 1 1, Al 31, 2* XI U, F 1 7^311 , 1, 2F 12, 01, FC 5, 31 *. 
X111,2F13,01 ,F16,3),xm,F<ll,X(ll,F16,3l,Xtll, 

At 71 ».X* 11 »A(4! ,X1 9) t Allll; 

ALC=AL1 31/ 3.OE03S 
ALC-ALC+.AL 12 1 / 6.QE01S 

ALC=1 ALC>A8Sl AL1 1 1 1 1*0 .2 61 7993 87 79 EDO* 

If ALllKO.OEO THEN ALC*-ALCS 
DLC=DH3)/3.6fc 03J 
ULC=0LC4DL12 1/6.0E01 ? 

DLC=(DLC+DLlin*0.1745329252E-01; 

IF RR= 'REPLACE-* THEN OOS 

NMRR*NMRR+1S 
MKR1NMRR1-PLT J 
ENDS 

PLC* ’PACT* THEN GO TO CALL 3 S 
PLC? 1 PL Al • THEN OU* 

GET EDIT 1 PC, DMJ 16E 1 13,01 ,XC 1 1 »A1 11 1 5 
GET EDIT 1PCP,0M116E( 13,0 )» Xt 1 1 , All 1 1 i 
GO TO CALL3? 

END. 

DO* 

CAU. overlay 1 * OHO 1 JO 2 * is 
CALL STRSOL IPG.PCPlS 
IF PCPlil* 999 9999.9 THEN DOS 

ON ENDF ILEtST ART I GO TO 
LOOP; 

FLUSHSGET FILE1START1 EDIT* DM1 


IF 

IF 


ELSE 
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<X(79), AC 1 1 ) ; 
GO To flush; 

END; 


end; 

CALL3 I CALL OVERLAY 1 • DRO 1JC 3 * ) } 
CALL M TRACK 4 PC ,PCP, PLC) ; 
GO TO loop; 

ALLQVR: CALL OVtRLAY 1 • DRG1JG4? ) * 
CALL OUTPUT! SEU»RR) » 

END ; 

/* END OF OATA 
INCLUDE IJKVCEM 
INCLUDE 1JKVBCM 
INCLUDE IJKVTBM 
INCLUDE IJRV1CM 
INCLUDE IJKQNLO 
INCLUDE IJrTCdM 
INCLUDE IJKTGDI 


INCLUDE IJKQSLD 
INCLUDE IJGFIEZZ 
PHASE URC1JC2,* 

// EXEC PL/1 

* PROCESS LlSTUfNOUPTiSTMT 
SIR SQL: PROCEDURE (PC,PCP); 

DECLARE (DSlMg)ENTRY; 

declare PNCH FILE STREAM OUTPUT ENVIRONMENT I F C 7a* MEDIUM 

<SYSPCH,2540) 1 ; 

DECLARE LST FILE PRINT ENVIRONMENT (F ! 130 ) MEDIUM 4 SYSLST, 14031 

); 


DECLARE <PC{6),PCP(6))FL0AT DECIMAL 415); 

uECLAKt STA CHARACTERS) EXTERNAL, TYPE CHARACTER 4 10 ) EXTERNAL, 
PLT CHARACTER 43) EXTERNAL, NR FIXED BINARY EXTERNAL, 

{ XC, YC i ALC, OLC ,MR ) FLOAT DEC4MAL415) EXTERNAL, 

1 DAY DEFINED DA YE, (2 YR,Z MO, 2 DYiCHARACTER 42); 
DECLARE DAYE CHAR ACT ER 4 6 ) ; 

DECLARE! STAR175 ),STR) FIXEO BINARY; 

DECLARE KUUUT ( d) CHARACTER ( B4) J 

DECLARE IDENT ( 75 ) CHARACT BU8 ),C0DE4 75 CHARACTER ( 1) ; 

DECLARE 1 LX( 6) , NX 4o) ,1AS(2),I0S42) ) F IX ED BINARY (20); 

DECLARE N G ( 9 ) FIXED binary; 

DECLARE COPY FIXED BINARY; 

DECLARE KEJSW CHARACTER (2) , FD CHARACTER! 1 ) ; 




DECLARE 1 


DECL ARE 
DECLARE 


SUMS *12 

SX t 

2 

SY, 

2 

SXR* 

2 

SYR, 

2 

SE, 

2 

SX2 f 

2 

SY2 f 

2 

SX2 Rt 

2 

SYZR, 

2 

SN, 

2 

S X 3 » 

2 

S Y3# 

2 

SX3R, 

2 

SY3R, 

2 

SXE , 

2 

SX4* 

2 

SY4 f 

2 

SXY Kf 

2 

SXY2R, 

2 

SYE, 

2 

SXY , 

2 

SX2Y2, 

2 

SX2 YR t 

2 

SY2R2 , 

2 

SXN, 

2 

SX2Y « 

2 

SXY 2, 

2 

SX2R2, 

2 

SX2E, 

2 

SYN, 

2 

SX3Y, 

2 

SXY3 » 

2 

SXREf 

2 

SYRN, 

2 

SXY E, 







2 

SY2N, 

2 

SXYN) 


( AS! 75 ), N(74), 

DS(7i> ), X 474 ) , 

E( 74) , Y474J) 

(AC, ADF , ASM, 

DDF, DM, DEM, 

SDC, SUDF.XD, X2 , 
RFM, RMSRA, 


XI!5), MX (6, 6) 
YI! 5), 

FLOAT DECIMAL (15); 
CADF ,COC« CUOF,COS, n - 
EC, FNK, NC, R, 

X3, YD, Y2 
RMSKO) 


( is) ; 

4XVC6), 

XTX4 6,6) , 


0 , 
RA, 
Y3 , 


DA, 

KO, 

SADF, 


DC, 


YZ» Jit lAur, 
FLOAT DECIMAL (15); 
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DECLARE UN,IM) FIXED BINARY C30J; 
OPEN FILE(PNCH); 

IN=6; 


I M= l ; 

SUMS=O.OEO; 

LiAY£=DATE; 

RMSKA=0.0E00; RMSRD=O.OEOOi 

NCD=C; 

NRJ-0 i 
K=0» 


cdc=cqsi DLCI ; 

SQC-=S1N<GLG); 

GET STAR: NCO=NCU«-l; 

GET EDIT (STAR! NCO )»IX1(I)*YI(I1DG 1=1 TO 5)) IX(7I»F<3)» 

10F<7,3)1 ; 

IF STAR! NCQ) >7A THEN DU; 

NCD=NCD-U 


FNR=G.Q; 
tu TU GETCAT ; 
END; 

K=STARINCDJJ 
LuDEC K) = ' M* ; 
x(K)=o.oto; 

Vi K)=o.oto; 

00 1=1 TO hr; 

X I K >-=X CK l+x III) ; 

YCK)=YCK)+YICI); 

end; 

fnr=nr; 

IF NR>3 THEN GO* 

J=i; 

om=o.o; 

DO 1=1 TO NR; 
XD=A8S(FNR*Xim-X(KI) ; 
IF XU>DH THEN DO J 

DM=XO; 

J=I ; 


end; 

YD=AaSCFNR*YI Cl l-Yt K) 1; 

IF YO>OH THEN UUl 

DM= YD» 

J=I » 

end; 

end; 

X|K J*I XCK J-Xl IJ > 1/tFNR-l • OEOOI » 
Y(KI=CYIKJ-YIIJH/CFNR-1.0E00); 

end; 

ELSE DO; 

ack)-xiki/fnr; 

YCKl-YCM /FNR; 

END; 

X1K)=X(K)-XC; 


Y(X)=YCK)-YC; 

00 TO GETSTAR; 

GETCATs get EDIT I STR, IOENTC STRI , ASCSTRI . OS CSTR) ,COOE< STRI ) C XI 71 • FC 3 » » 

XI 21 t-AC 8>tFI10*a)»X(ll *E ( 10 »SI tX 1 38) * AC 1 ) ) ; 

IF STR>7A THEN GO TQ ITRATE; 

DO K=1 TO NCD; 

IF SJK=STARCK} Then gu to hatch; 
end; 
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b<J TO GETCAT; 

match; k=str; 

F NR-F NR*.l « 0 i 
UUF=USIK)-ULC; 

adf=as(kj-alc; 

cuS-cog ( us ( k ) ) ; 

SODF= Si N ( GUF i > 

CuOF=CdS(DDF); 

CAOF=CUS< ADFI ; 

U=CUUF +COC *Cl>S *<CAUF- i .OfcG) ; 

aAOF^SiNUOF); 

tlK)-(LOS*SAUF)/Ui 

N(K>=liUOF-SOC«‘a)S*rCAOF-l .OEOU/DJ 
x2 = X( Ki *X4 M i 
Y2=Y<K>*Y( K) ; 

X3=X2*X{K) i 
Y3=Y2# Y< K) t 

k= X2 >y 2 ; 

SX~SX+X<KJ; 

3Y= SY+ Y 1 Ki J 
SX2=SX2+X2 i 
SY2=SY2+Y2{ 

GX3=3X3«-X3; 

GY3 = SY3+.Y3| 

SXA=SXA+<X2*X2i 

i>YA=SY4+Y2*Y2; 

SXY=SXY+X(K)*YU) i 
SX2Y-iiX2Y+X2*Y( KJ * 

SXY2=GXY2+X(K)*Y2 ; 

GX2 Y2= SX2 Y2+X2*Y2 i 
SX3Y=SX3Y+X3*‘Y(K) ; 

SXY3=SXY3*-X( KI*Y3J 
SXR=SXk*XIK)*R; 
iYK=SYRFY (Xi*ki 
SX2k=SX2R+X2*ki 
SY2k=SY2R+Y2*R; 

SX3R=SX3R+X3*K; 

SY3R=SY3K+ Y3*k; 

SXYk=SXYR+Xl Ki *Y( Kj*RJ 
SX2Yk=SX2YR+X2*Y(KJ*k» 
SXY2R=SXY2k*X( KJ*Y2*RJ 
i>X2R2-=SX2R2**'X2*R*R } 
SY2k2=SY2R2+Y2*k*RJ 
i.e=SC+t(K) ; 
iN=SN+NlK Jj 
iXt=SXE+XCK)*tCKJ ; 

S Y£= SY£*Y( K ) *E( K) i 
3XN=iXN+X(K)*N(Kl; 
iYN^SYft*- Yl K) *NtK) * 
i.XYfc=3XYE+X(K|*YlK|*E(K>{ 
SXYN=SXYN+X(K.i*Y(KI*NIK)J 
SX2E=iX2E+X2*£CK)i 
iY2N=SY2N+Y2*N<K » i 
SXRE=SXRE*X( K)*R*E(K) J 
SYRN= !»YkN+Y(K)*k*N( KJ * 

CUD£(K)=« •; 

GO TO GETCAT; 

ITRATE: KSUL=0; 

MATRIX; XTX ( 1 f i )*FNR; 

XTXt 1 (2) =sx; 
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ATX ( If 3 l=SY; 

XTX(1*4)=SXY; 

XTXt 1,5>=SX2; 

XTX ( 1 *6)=SXR; 

XT X( 2,2l=iX2j 
X T X l 2 » 3 ) =S XY $ 

XTX(2»4)sSX2Yi 
XTXt 2* 5) =SX3i 
XTX (2,6)=SX2R{ 

XTXt 3.3) =$Y2; 

XTX (3* 4)— SXY2; 

XTX ( 3 *!> )=SX2Y * 

XTXt 3* 6)— SXYR; 

XTX(4,4)=SX2Y2 5 
XTXt 4, 5)=SX3 YS 
XTX(4,6) = SX2YK; 

XTX (5*5 )=SX4 J 
XTXt 5,6)=SX3K; 

XTXt 6, 6 )=SX2R2; 

DO J=1 TO 5; 

DO L=J*1 TO 6; 

XTXtL,J)=XTX(J,Ui 

end; 

end; 

nx=xtx; 

*ixvt 1 )-se; 

WXVt 2) = SXE ; 

WXV(3l=SYfc; 

MXV(4)=SXYE; 

*XV( 5)=SX2E; 

*XVt6) = SXRE; 

CALL U NKPF t OS I MU..NX, WX V . I N, I M I ; 

PC=MXY» 

XTXt 1,5)=SY2J 
XTXt 1* 6 ) =SYRj 
XTX(2,5)=SXY2; 

XTX(2*6»=SXYR; 

XTXt 3* 5) -SY3 « 

XTX t3,6)=iY2R; 

XTX(4*5)=SXY3» 

XTXt4.6)=SXY2RS 
XTXt 5*f>l=SY4»‘ 

XTXt 5* 61*= SY3R4 
XTX (6*6I=S Y2R2 * 

DO 3=tl TO 5J 
DU L=5 TO 6; 

XTX ( L.-JI-XTX ( J»L) » 

end; 

END; 

«X=XTXi 

wxvt u*sn; 

MXV(2)=SXN; 

*dcv(3)=syn; 

MXVt 4)*SXYN; 

UXVt&l=SY2N; 

«iXV(fc) = SYRNj 

CALL L I NKPF ( OS1 MQ*WX*WXV*IN» INI* 

PCP=MXV; 

NSOL*NSOL*U COPY=i; 

PLATOUTiPUT FILEtLSTJEOIT ( * SOLUTION' NO* « ,NSOL*» STATION* »STA»* PLATE' , 
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PLT»TYPE»MO» •/• t 0Y»* /' *V«I (PAGE, X(37J?A»F42)tX(4l,A» 

X(l),A(4i,X<4).A,XUI,At31,X(2J,A410),X(29>,A42> f 

2<A,A(2)))J 

PUT HLECLSntOII 4* PLATE CONSTANTS *, PC# PCP ) (SKIP, SKIP, A( 15 ) f 
2< SKIP, XI 101 ,6|X(3» ,£115,8)))); 

PUT P LLtl LST (EDIT C'STAR NO. * . ’CATALOG NO.*, 'RIGHT ASCENSION*, 

4 DEC L 1 NAT ION? , * RES 1 DUAL A*,*RESIOUAL 0 «, , CQOE'J 
( SKIP* SKI PrAlflJ ,Xi 41 »A( III »XI 4) ,AU5» ,X(6> ,A( Hi » 

Xtfc) ,A(10I,X44)» At 10 1, XI 5|, A I All; 

COPY2J KH-0l/*KK KEEPS THE INDEX OF THE HORST RESIDUAL */ 

KS=L", /* KS COUNTS THE NUMBER OF STARS THAT HAVE SEEN DONE */ 
k£ JS w=' •; f* THIS SWITCH IS TURNED ‘ON* IF ANY REJECTS 
SHOW UP IN THIS SOLUTION */ 

KK=0; /*KK CUUNTS THE REJECTS FROM THIS SOLUTION */ 

NKET =0, /* NRET COUNTS REJECTS PUT BACK IN */ 

kFM= 0 .0; /* RFrt IS THE LARGEST RESIDUAL */ 

KHSRA=0.0; RMSRD=O.Oi 

RESIO: k-STAk(KS); 

IF C0DE<KJ=»M* THEN DO i 

KS=KS>U 

IF KS5NCD THEN GO TO TSTENO; 

GO TO RES 10; 

end; 

X2=XCK**X( k> ; X3=XIK)*X2; 

Y2=YIKI*Y(K); Y3-Y ( K)*Y 2» 

R-X2>Y2; 

fcC=PCt 1I+PC ( 21 *X(K l+PC I 3) *¥4K >*PC( 4)*X4 KJ*Y4 K) +PC 1 5 ) *X2* PC (6) * 
X I K ) *«} 

NC=PCP ( 1! ♦PCPt 2l*XIKI»PCPi3)*YlKl*PCPI4l*XIKi*VIKI+PCPt5l*Y2» 
PCP(6 »*Y|K i*r; 

UA=ATAN(EC/lCOC-NC*SDCJU 

IF S IGN( (EC*S1N(DS< Ml l/(CDC*CU$*l NC+ 1 SOC/COC) I I ) ^=S IGN4 DAI 
THEN DA*DA+3. 141592653509; 

aC=ALC»DA; 

AUF=1SUC*NC*CDC >*COS40AJ i 

ddf=icdc-nc*suc ) ; 

DC=AT ANl ADF/DDF ) } 

IF ABS (AC-AS(M >>1.04720 THEN IF AC>ASIK) THEN AS(K1=AS(KM- 

6*2031053; 
ELSE AC=AC«- 

6.2031053, 

KA= t AC-ASI K) )*CUS COSIKII. 

RD=0C-DSIK); 

KA=RA*2.O62t>40O6256O5; 

RD=RD*2. 0626480625 EO 5» 

ASM- ( AS4 KI * 5. 7295779513E01 I /I . 5EQ l } 

I AS (I )= ASM; 

IAS (21=1 ASM-1 AS HI! *6.0E01 ; 

ASM=* ( ( ASM- IASI I ) )*6.0£0l-I AS( 2) I *6. 0E01 . 

US M-=AbS4DS (Ml *5 .72957/95 13E0 1 • 

I D S( 1 1 =DSM» 

IOS( 2J = tDSM-lDS(l) I*6.0E0l; 

0SN=4 (OSM- I0S4 II l*6.Q£01-IDS (2) ) 46.0E01; 

1DS( 1) — IuSli) *SIGN(DS1KI I ; 

IF 1DS(1>=0 £ SIGNIUSIKIKO.O THEN SG=»-*; 

ELSE SG* * »i 

IF COOELKl-^'R* THEN GO TO REGLN, 

KK=KK+i ; 

IF KK>8 THEN 00; 

PUT F ILE( LST I EDI T( • MORE THAN 8 REJECTS FROM THIS* 
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,* SOLUTION* JISKIP, 2A) ; 

GO TO ERROUT; 

ENOS 

IF SG=* — * THEN PUT STRING! RJOUT ( KK ) ) EDIT (K, lOENT IK ) « 1 ASr ASM* SG 

#1D$,L>SH,RA,RD» IF 13) »X (8) ♦ A<8 ) *XI6 ) * 
F(3).XI1),F< 2) ,XC1) ,F< 6,3) , X! 7) , 
A(lJiF(l),X(l| f F{2),X(U t F(6«3)« 

XI4) ,F(9»3)»X( 5),F(9*3)>; 

ELSE 

PUT STRING IkJGUIlKKHEDITlK.IOENIIKI.IAStASN, IDS, DSM,RA f RD> 

(FI 3) f Xlti), A( 8),2(X!6),FI3)*X! i) ,F( 2) ,X( 1) ,F 1 6*3) ) , 
X(4)*F19*.3),X(5),F(9*.3))S 
IF ABSIKA) <MR L ABSIKDKMR THEN DOS' 

CODE ( K ) = * •; 

NRET=NR£T*lS 

NGINREJI=K; 

FNR=FNR+1.0; 

SX-SX+X I K) t 
SYsSY+YIKU 
SX2"SX2*X2S 
SY2=SV2+Y2; 

SX3=SX3+X3S 


SY3*SY3+Y3S 
SX4=$X4+X2*X2S 
SY4= t SY4*Y2*Y2l 
SXY=SXY+XIK)*Y(K) s 
SX2Y=SX2Y+X2*YIKIS 
$XY2=SXY2+XIM*Y2; 
SX3Y=»SX3Y+X3*Y (K) J 
SXY3*SXY 3+XI K) *Y3S 
SX 2Y 2®SX 2Y 2+X2 *Y2 ♦ 
$XR=SXR*XIK)*RS 
$YRr*SYM-Y(K)*Rj 
SX2R=SX2R+X2*R 5 
SY2R»SY2R*-Y2*R; 

SX3R=SX3R+X3*R i 
SY3R=SY3ft*Y3*R{ 

SXYK=SXYR+XI K) *Y ( K1*RS 
$X2YR=SX2YR*X2*Y(K>*RS 
SXY2R=SXY2R+X( KI*Y2*RS 
SX2R2* SX2R2+X2 *R*R * 
SY2R2=SY2R2+Y2*R*RS 
S£*S£*E( K) • 

SN=SN+NfK) ; 

SXE*SXE+XIKI*E<K); 
SYE=SYE+YIK)*E(K) ; 

SXN=SXN*XiK J *N (K I » 
SYN*SYN*-Y(K)*N<K); 

SXY.E® SXYE+XtK ) *Y 1 K ) *E( K ) I 
SXYN=$XYN*X I K)*Y (K )*NI K ) 5 
SX2£*SX2E+X2*E (X)S 
SY2N=SY2NFY2*E<K»s 
SXKE*SX RE*X I X) *R*E IK) S 
SVRN«SVRN*Y( K) *R*N< K) S 
END; 

^ ♦ 

IF KS>NCO JHEN GO TO TSTENOS 
ELSE GO TO RES I OS 

REGLN: IF SG= »-« THEN PUT FILE! LSTIEDI TIK.IDENT IK) ,1 AS, ASM*SG t IDS, OSH 

»RAi KD) ( SKIP *X ( 3 ), F I 3) • X( B ) , A( 8) » XI 6 ) ,F I 3) 
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,Xnj.F<2>,X(l),FI6,3>»X(7),Am,F<l),XlU 
,H2J.X(1) ,F( 6,3! ,X(4),F<9,3) ,XI5> ,F(9,3)I; 

ELSE 

PUT HLEtLST)cOIT<KfIOENT{K) f IAS , ASH, IDS ,DSH,RA, RD) ($K1P,X ( 3), 
Fi3l,XlttJ»A(BI,2I Xt6),2Ft 3J ,F(7,3H , 
X(4|,FI9,3),XI5),FC9,3J J} 

RnSkA= KM SR A+R a*RA ; RHSRO=RMSRD+RD*RO; 

IF ABS<KA)>MRJ Ae>S(RO)>MR THEN DO} 

RE JSVt=* ON* ; 

IF ABS(RA) >RFM THEN DO! 

RFH-ABS(RA); 

KR*XJ 

end; 

IF A8$(RD)>RFM THEN DO! 

RFM= ABSI KD J * 
KR=K; 

END! 

END; 


K S=K s+ 1 ; 

IF KS<=NCO THEN GO TO KESlQi 
T ST END* IF KK>Q THEN 00 K*1 TO KK; 

PUT FIL£(LSTIEDIT(RJUUT(Ki, , REJECT' HSKIP,X(3I , 
A 1 84 1 f.X ( 6 ! i A 1 » 

END; 

KrtSRA=SQRT IKMSRA/FNR) J 
kMSRO=SWRT(RMSRO/FNR); 

PUT FILE (LSI) EDIT! *kOUT MEAN SQUARES! * »RMSRA»RMSRD) I SK IP < 2 )« 
A,X149I,F(6|3),X( 8) ,F(6,3i)» 

IF C0PY=2 THEN 00 TO RETURN} 

IF RtJSrt— * • THEN 00! 

COP ¥-2* 

IF NRET*»=0 THEN 00 K=1 TO NRET ; 

J=NG(K> ! 

CODE! J ) = ' *; 

END} 

GO TO PLATOUT; 

END} 

Coot (RR)-* K* ; 

X2=X(K)*X(K); 

Y2=Y<KJ*YtKJ } 

X3=X2#X(K) ; 

Y3*Y2*Y (K) } 
k=X2+Y2; 

fnr=fnr-i.o; 

SX=SX-XlK) } 

SY=SY-Y{KJ } 

SX2-SX2-X2 » 

SY2=SY2-Y2! 

SX3=SX3-X3» 

SY3—SY 3-Y 3} 

SX4=SX4- A2*X 2} 

SY4=SY4-Y2*Y2; 

SXY=SXY“X(K)*Y CK) • 

SX2Y=SX2Y-X2*YtKJ ; 

SXY2=SXY2~X( K) *Y2» 

SX2Y2=SX2Y2-X2*Y2} 

SX3Y=SX3Y-X3*YCKJ ! 

SXY3=SXY3-X<Ki*Y3j 
SXR=$XR-X< K)*R; 
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SYR^SYRtY ( K )*R» 

SX2R=SX2R-X2*RJ 

SY2R=SY2R-Y2*R; 

SX3R=SX3k-Xi*K; 

$Y3R=S.Y3R- Y3*R; 

SXYR=SXYK-X(K)*Y(K)*R; 

SX2YK=SX2YR-X2 *Y(K)*R; 

SXY2R=SXY2R-X( K)*Y2*R; 

iX2R2=SX2R2-X2*R*Ri 

SY2R2=SY2R2-V2*R*R; 

St* SE—E (K I 4 
3N=SN~N(K); 
sxe=sxe-x(K)*e(k) ; 

SYfc=SYE-Y(K)*HK> i 
SXN=SXN-X(K>*N(K) i 
SYN=SYN — Y( K)*N(K) ; 

SXYt=SXYE-X(K)*Y(K)*E(Kl ; 

SXYN=SXYK-XCK)*Y <K)*N(K); 

SX2E=SX2E-X2*£(K); 

SY2N=SY2N-Y2*N(K) l 
SXRE=SXRE-X( K> *R*E (K) J 
SYR.N= S YRN- Y ( K » *K *N( K J J 

60 To matrix; 

CNVOUTi PUT FlLE(LST)EOIT( 'CONYERS ION ERROR IN STAR SOLUTION DATA* I 

(SKIP. A); 

ERROL Ti PCP=9999999.9; 

CLOSE FILfc(PNCH) } 

RETURN; 

RETURN! PUT FI Lt ( LST I EDIT (‘SOLUTION NUMBER ‘.NSOL. 

■ MEETS THE requirements*) (skip, aubj ,f(2),aI231) ; 

PUT PILE (PNCH) EDIT (PC )( 6E( 13, 0. 81 ) ; 

POT FILE (PNCHJ E01T ( PCP ) <6fc ( 13 .0 ,»)) J 
CLOSE PILE (PNCHJ ; 

RETURN; 

end; 

/* END OF DATA 
INCLUDE ILFDSIMQ 
INCLUDE AAPC6A 
PHASE 0RG1J03,DR01J02 
// EXEC PL/ I 

* PROCESS listo,ngopt»s.tht 
MTRACM PROCEDURE (PC. PCP .PACT I » 

DECLARE CARD FILE STREAM INPUT ENVIRONMENT (F(80) MEDIUM 
( SYSIPT,2b40) I , 

01 ROUT PILE RECORD OUTPUT ENVIRONMENT (PC 3200,801 
MEDIUM ( SY SO L9 *.231 A) ) . 

D1R1N PILE RECORD INPUT ENVIRONMENT (F(3200,80) 
MEDIUM (SYSO 19. 231 A) ) . 

PINE PILE RECORD OUTPUT ENVIRONMENT (F (3400, 136IMEDIUM 
( SYS018. 2314 J J s 

A MB FILE RECORD OUTPUT ENVIRONMENT (F( 1680,561 MEDIUM 
( SYSO 18..23I4I J , 

LST PILE PRINT ENV IRONMENT (P( I30JMEDIUM( SYSLST , 1403) 1 • 
DECLARE STA CHARACTER (4» EXTERNAL* 

PLJ CHARACTER (3) EXTERNAL*. 

(XC .VC, ALC, OLC.EWC.NSC. VC 1 FLOAT DECIMAL! 15) EXTERNAL, 
NR FIXED BINARY EXTERNAL. TYPE CHARACT 6R( 10) EXTERNAL, 
i OAY. DEFINED DAYE, ( 2 YR,2 MO, 2 DA ICHARACTER (2); 
DECLARE SG CHARACTER! 1 1* 

DECLARE DAYE CHARACTER! 6) S 
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OtCLARE {PCI 6 ) , PCP46J I FLOAT DECIMAL (15); 

UcCLAKE 1 FlNOATA,2 UT1(3) FLOAT DECIMAL (6), 

2 ML CHARACTERS) , 

12 AC, 2 bt, 2 AM, 2 DM, 2 C,2 R2, 2 DAO, 2 DBO, 

2 NA,2 N6) FLOAT DECIMAL 115), 

2 STN CHARACTER (4), 2 PT CHARACTER (3), 

2 CDE CHARACTER (1), 

2 1 DLE ( 4) FLOAT DECIMAL 115), 

1 AM BOAT A', 2 UT2C3) FLUAT DECIMAL, 

2 NL CHARACTER (A), 

(2 ACM, 2 ACC, 2 BCM.2 BCC) FLUAT DECIMALI15), 
2 ST T CHARACTERS), 2 PLTT CHARACTER 13), 

2 COD CHARACTER 1 1 ) , 

1 DIRDaTA, 2 I UT ( 2) FIXED BINARY, 2 UT FLOAT DECIMAL, 

2 IAL12) FIXED BINARY, 2 ALM FLOAT DECIMAL, 

2 I0L12) FIXED B I NARY , 2 DLM FLOAT DECIMAL, 

2 BLANK CHARACTER 14), 

12 A, 2 EP,2 DRLQ Oil FLOAT DECIMAL 115); 
DECLARE VP ESI 91 ) DECIMAL FLOAT (6) INITIAL 

(0 . 169,0 .1 67 ,0 .2 10 ,0 .232,0.259,0.236, 0.317, 0.3 51,0.309,0.430,0.4 76, 
0.526*0.580, 0.640, 0.703,0. 7 76, 0.654, 0.9 39,1. 031 ,1.132,1 .241 , 1 .361 » 
1.490, 1.032,1.763, 1 .930 , 2 .13 i , 2. 32o ,2. 537, 2.765, 3.013,3.280,3.568, 
3.680,4.217,4.579,4.926,5.294,5.635,6.101,6.543,7.013,7.513,8.045, 
8.609,9.209,9.844, 10 . 5 18 , 1 1 . 231 , 1 1. 9 87, 1 2 . 788,13.634,14.530,15.477, 
16.477,1 7.535,18.650, 19.827 ,21 . 068, 22 .377 , 23.756, 25.209 , 26.739, 
28.349,30.043,31. 824,33.695,35.663,37.729,39.898,42.175,44.563, 
47.067,49.692,52.442, 55.324, 58.340,61.500,64. 800,68.260,71.860, 

7 5.65C, 79.600,83. 710 ,88 .020 ,92. 5 10, 9 7 .220 , 102 .09, 107.20,112.51, 
116.04) ; 

DECLARE (PI, CDL, SUL, F, P, STG, LON, LAT, MC, NNO, 

HUB* UTN, UTU, RL, HS, HA, HD, TEMP, PRES, 

KLH , STP , RATIO, ES, NS, DN, END, CLA, 

SLA, RF, XM, YM, FNR, DM, OF, X2, Y2, 

R, E, N, AL, DL, H, CH, SH, CD, HP1, 

SD, EN, NN, EO» NO, CC, SC, El, Nl, ATEN, 

R2U, LAU, MUU, NUO, AH, RBS, AOD , 600, DAM, 

AON, BON, FEN, FNS, V EW , VNS. ASV, BSV, R2S , UTSO, 

XA, YA, LA, XX, YY, RP , LA, MU, NU, VVL, 

RA, UTST ,-UST , AMU, 8MO, DLTA) FLOAT DECIMAL (15); 
DECLARE (COPY, IOTO(2)) FIXED BINARY • 

DECLARE (3A( 3) , L0(3), LT(3i, BSLN(6), TC(6), 

NP(6), X (5 ) , Y (5 ) , AUP (4 ) , 

AUPO(4>, NPO( 6) , ACB 14)) FLOAT DECIMAL (15); 
DECLARE STRTCS) CHARACTER (80 ) • 

DECLARE (DUM,PACT)CHARACTER(4I J 
DECLARE! 1ST, 1NOT ) FIXED 61NARYI31); 

DECLARE (UTRD, ROUND) DECIMAL FLOAT ( 15 ) i 
OPEN FILE(CARD), FILE ( DI ROUT ) ; 

ON ENDFI LE(CAKD)GO TO GO BACK ; 

ON CONVERSION GO TO flush; 

DAY E=UATE ; 

ROUND= 0.00005; 

pt=plt; pltt*plt; 

8TN=STA; STT=STA ; 

COD=»3*; C0t=*l*; 

OAM=3.2007 048E— 05; 

P I® 3 ♦ 141 592653 59E 00, 

VVL=9 • 63 569229E08 ; 

KTR=0» /* THIS INDICATES A STARTING POINT IN DATA */ 

copy®!; 
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COL=CQS(DLC) ; 

SDL -SINI ULC ) } 

STCOl: btT FI Lt CCAROI EDIT ISTRTCM4AI 8011 • 

uET STRING ( STKIC ( 1) I £OlTlSA,LO,LT,F,P,DuMJ (X ( 10 ) , 2 { F ( 3 ) » F( 2) , 
FI 5, 31 I»2F(3|,F(6,31,X(4)»2FIB»3I , XC I4l . A ( 41 I { 

STG = SA (3 1 /3 .6E03} 

STG=STGi-SAl 2I/6.CEQ1; 

STo= (STG+SAU) )*0.26l79.938779EQ0t 
LON=LU( 3) /3 .6E03 » 

LON=LON+LU{ 21/6. OEOl} 

LON= I L0N+A8S t LO (11 )J *1.74532 925 2E-02I 
IF LGllXO.OfcO THEN LON=-LQNi 
LAT = LT t 3 1 / 3 • 6fc 03 * 

LAT=LAT*LTC2)/6,0E0l; 

La T= C L A XL T < 1) I * 1 . 745 32 92 52E - 02 { 

CLA=COS { LAT ) « 

SLA— SI M LATJ ; 

STCC2: ufcT STRING(STRTCI2J 1EUIT {MC,MUB,VC.EWC,NSC,H$,HA|(X{10>» 

F{10,41,FIlQ,8l,3FIiQ,7>,2FtlG,2H ; 

HD=HA-HS; RtjS=MC*HD*l .0E06/VVL, 

RfcGU KF= ( I .O-tAPI -GAM*HD).|/ ( GAM*HO) } 

STCC3 : GET STKI NG 4 STKIC (3 1) EDI T IBSLM,TCI I X( 41 ,6E( 6, 3 1 , 8E l 5, 2) I ; 

DU 1=1 ro 6; 

bSLNt I )=(6SLNII) *NC*1 .0EQ.6 )/ VVL; 

ENDi 

ST CD4: btT STRING ISTKTCUl) E01T t TE HP, PRE S, RLH, DUM) (X 1 10 I , Ft 10 , 3 ) , 

2F t 10 , 5 1 • XI 36) , At 4) I ; 

PUT FILEtLSTIEDITCSTAKT CARDS: • , STRTC1 t PAGE, A, At SKIP 1 2 ) , A t 80) 
i > ; 

PRES=PKES/0 .029531441 /* IN HG TD MB */ 

TErtP=l5.CEG/9.0E0)*t TEMP-32. OEO I ; 

KTP^TEHP; 

ST P=KT Pj 

IF TEMP>G THEN DU; 

IX=KTP*35; 

RAT IO=ABS ITEMP—STP I ; 

END} 

ELSE DO} 

1X=KTP*36} 

RAriU=l .O-AUStTEMP-STP)} 
end; 

fc S= VPES( I XI +RA TI 0*1 VPEStlX+ll-VPESt (X »l; 

ES=ES*0. 0393701; /* MM TO INCHES HG */ 

. £S=ES/0.Q2953144; /* INCHES HG TO MB */ 

T£MP=T£MP+2. 7316E02; 

IF PAG T=' PACT* THEN RL=0.0; 

ELSE RL=t7 7.6*PRES*RF*l .0E-C6 1/TEMP } 
NS=(7.76EOl/TtMP)*{PRt6+(4.810E03*£S*RLH/TEMP> >*1.0E-06; 

DN= -7.32E0*l.G£-G6*EXP(55.77.0*NSl 9 
UN=LGGINS/ INS+DNl )*HD*3.048E~04; 

MUB=i.OEG+Ns*t l.OEO-expt-UNi i/on; 

UU 1=1 TO 6; 

NP(II = t l.QE0-RU*MU8*BSLNt II; 

END; 

HEA01: PUT FILE tLSTI EDIT I.* DIRECT ION DATA FUR STATION • , STA* 

•» PLATE NUMBER • , PLT, TYPE ,M0,' / • ,0A, ' / ' , YR| t PAGE, X 133 1 
, A, A (4 1 »A, AI3) , XI 2 ), At 10 I ,X t 251 , A 1 21 • 2t A ,At 2) 1 1 ; 

IF PACT=* PACT* THEN GO TO PCAPT ; 

ELSE GO TO RCAPT; 

PCAPT: PUT FILE tLSTI EDIT {'FLASH T IN£*, 'AZIMUTH*, 'ELEVATION*, 
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•LAMBDA* ,*MU»,*NU*I I SKIP 12 1 ,XI4) , A( lO»,Xt7l,Al7», 

X ( 7) , A( 9) » XI 8 ) * A< 61 « X( 11 1 » A ( 2 ) , XI 13),AI2H; 

LNKF-3* 

If CuPY>2 THEN GU 70 80TH2; 

fcLSfc IF CGPY=2 THEN GO TU RDQIR; 
ijO TO BUTHl » 

KCAP I; PUT FILt <LST) EDIT ( 'FLASH TIME* » 'R IGHT ASCENSION*, 

• OECLINAT ICIN' , • A Z IMUTH* , • tLEVAT ION ' , ' LAMBDA * , 'MU* , 
•NU 1 ) I SKI Pi 21 ,XI2) »AU0i»XI4| , AUS ) ,X (3 J , All 1 1 , X( 71 , 
At 7) , X I 7 1 , A ( 9), X ( 8 ) » a l 6 ) ,Xt 11) , A I 2 ) , X 1 1 3 } , A I 2 1 ) i 

LNKT=3i 

IF COPY >2 THEN GO TU B0TH2 > 

ELSE IF COP 7=2 THEN GO TO KDDI R * 

BOTH 1 : GET F l LE (CARD) LD I U AM, DM, IDT ,UT , DUM ) I X I 10 I » 2E ( IC, 3 ) , XtlO > , 

2FI2)»flG»4) ,X( 26) , A(4) ) i 

COPY=A ; 

KTR=KTK+1 J 
UTN= UT/3.6E03; 

UTN=UTN + 1UT I 21/6*0 EO I, 
uT N=UT NF i UTl 1) { 

H= ( 9 .B565 *0 TN ) /3 .GEO 3 i 
oTN=UTN*C. 26 1 79.93a 779* 

IF PACT-*='PACT * THEN GO To KEG2J 

GET FlLE(CAKD)fcDITlDRCU,OUMMXUO),3 FI 10,9), XI36) ,A< 41) { 
A=ATAN(0RCC( 2 ) ,URCQI I) I i 
tP=SOKT( l.CEO-DRtOI 31**2) ; 

EP=AT AM DKCO (3 1 » EP) » 

utrd=ut; 

PUT F ILE 1 LST } EDIT I IUT, UTRO, A, EP ,URCCI) ISKI P, XI 2) , 2 IF (21 , XI 1 ) 

) ,FI7;4), 51X141, Fill, 8>>); 

LNKT=LNKT+l; 

IF LNKT>39 THEN GO TO HfcADlJ 
GU TO B0TH2J 

RtG2i GET FIlEICAKOJEOITIIXI I ltYIIl DO 1=1 TO 5)) t X 1 10 J , IOE 17 ,3 1 1 i 
XM=C .060 ; 

YM=C.GfcC; 

DO 1=1 TO NR; 

XM=XM+X1 I ) ; 

Yrt=YM+YUI ; 

end; 

PNR= NR* 

XM=XM/FNR; 

y m-ym/fnr; 

Ir NR>3 THEN DO; 

K=I; 

DM=O.OEOO; 

DO I* 1 TU NR; 

GF=ABS( XI 1 1-XMJ ; 

IF UF>OM THEN DU; 

DM=DF; 

end; 

DF=ABSi rill-YHI ; 

if df>om then do; 

D rt=DF ; 

K=I ; 

end; 

end; 

XM=t XM4FNR-XIM I /( FNR-l.OfcO); 

YM=IYM4FNR-YIKI l/IFNR-l.OEOl; 

end; 
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XM=XM-KCi 
Yrt= YM— YC* 

X2=XM*XM; Y2=YM*YM| R*K2+Y2; 

t=PC(l J + PC{2)*XM+PC<3>*YM+PC<4I*XM*YM+PC<5>*X2*PC<6)*XM*RJ 
N*PCP< H*PCP<2J*XM+PCP13»*YM+PCPI4I*XH*YH+PCP15)*Y2+PCP<6I* 

ym*k; 

xm=cdl-n*sdl; 

OF=ATAN(E/ XMl; 

Yrt* ( SOL +N*CDl I *COS l Of H 
OL=mTAN( Yrt/XH) ; 

-IP AHSIOL-DLOX PI/3.0) THEN DO* 

QL=-OL ; 

OF=DF+PI» 

ENOi 

al= aloof; 

IF AL<C.O THEN AL = PI*2 .o+al; 

H=H*G.2617993B779EOO» 
h= S T OH-LUN-AL *UTN i 
CH=CbS<H) ; 

SH^SINiHIJ 

cu*cos(ol); 

So-S i n( ol ) ; 

URCG < l 1-3 0*CLA-CO*SLA*CH J 

ukcc<2 j=-co*sh; 

URCO( 3>=SO*SLA+CO*CLA*£H; 

A=ATAmokCum,URCa< n J; 

IF A<0.0 THEN A=A*2.0*PI; 

EP=SGRT< I.OtC-ORCOi 3)**2> * 

EP- ATANC t)RC0(3 J» £P ) ; 

ALM=<AL*5.7293779513E01l/l.5E0l; 

TALI 1 »*ALM; 

IAL(2)=IALH-IAL11J l*6.0E01J 

ALR=( ( ALM-I ALC 1) ) *6*0E01— I AL ( 2 ) ) *6 .OEO l * 

DLM—ABSl GL)*i>« 7295779613E OX * 

IOL<l)=OLM; 

I OH 2>*IUL*-IDU L)I*6.0EOU 

OLf+= C < OLH-IOL <111*6 .OEOl- IOL< 2 J I *6. OEO 1 i 

1DH 1) =1 DL ( I 1* SI ON< OL I } 

UlRO=UT» 

IF IDLI1J=0 L DL<0.0 THEN PUT FI LEI LST 1 EDIT! IUT.UTRO ,1 AL *A LM* 

,IQL,OLM f A, EP,DRCOMSKlP,2<F<2», 
X< 1) >,F (7,4), XI 41, 2 IF I 2>, X( 1) ) * FC 6, 3) 
,X<5>,A,F(1),XU>,F<2),XU),F<6, 3), 
5< X< 4) f F(llt6))l> 

ELSE 

PUT FILL ILSTI EDITUUT f UTRO, IAL,ALM, IDLtOLH, A.EP.ORCO) 

( SKIP»2IFI2) »Xt II ) »F I 7 *41 * XI 4) *2 IF (2) * X 1 1 1 ) *f (6 » 3) 
•X (4) »F<3i»XIl)»F<2)fXll)»F(6»3)»5(X(4l»F( 11,811); 

lnkt=lnm+h 

IF LNKT>39 THEN GO TO HEAOl » 

BGTH2 : WRITE FILE IOIRGUT1 FROM IDIROATAIS 
EN=ORCG( 2I*H0/DKC0<3) { 

NN=GRCOC 1 l*HO/ OK CO 13); 

IF KTK=l THEN GU TQ NEXT; 

IF UTN-OTU>0» 145444I04E-03 THEN OOi‘ 

KTR* l» 

GO TO NEXT; END; 

RIGHT: IF ABSI NN~NQJ<-AB$|6N“£Q) THEN DOJ 

C=*AT AN I < NN-NO ) / 1 EN- EOII$ 

IF ED>EN THEN C=OPl; 
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ELSE IF C<0. 0 THEN 
C=C *2.0E0*PI ; 


END? 

ELSE 00; 

EN0*EN-E0; 

NN0=NN— NO* 

ATEN-ATANIENU/NNO) ; 

HPI=PI*0.5; 

C=HPI-ATENS 

IF NN<N0 THEN C=C*Pi; 

end; 

CC=C0S(CI ; 

$C=SIN<L ii 

IF MR-^2 THEN GU TO SKIP; 
fc I =F*CC-P*SL 
Nl=P*CC+F*$t*NU; 

K2G=SuRT( El*fcl*Nl*Ni*Ht>*HDJ; 

L AU=N l/K 2(J J 
HU0=ci/K20J 
AR-=RbS/NUU; 

AR=1.0/(4.00*AK*ARI; 

AUQ=( NPQl 1 ) *MUU) / SORT 1 1 .OEG+AR*&SLNt L »**2*(l.GEO-MUO*MUOij; 
bLiU= (NPO (21 *LAU i/i jRT ( I »OEO*Aft*bSLN( 2I**2*I 1. OEO-LAO*LAU» I i 
SKIP: t=F*CC-P*SC+ENJ 
N^P*CC*F*SC+NN; 

h2=sort (e*e+n*n+ho*hd); 

OKCGU J=M/K2; 

URC0(2)=E/K2» 

AR=R8S/0KC0I3); 

AR=2 .56-01/ IAR*AR> ; 

A0N=(NPCIi *DROO( 2) I/SOKTi 1. 0E0*AR*8SLNI ll**2*< 1 . OEO-DKCOt 2)**2 

>» ; 

bUN=( NP( 2 ) ♦DRCLKli I /SORT ( 1.0 fcO <-AR*8SLNI 2 1**2 *<1 .QEO- URCOI 11**2 

n ; 

L)AO=( AON-ACCI/ ( (UTN-LITQI *13750 .98709 I ; 

DbG=i bOw-bUG) / ( 4UTN-UTG) *13 T50.98709 ) ; 

Ffcjt- CAO*EwC » 

FNS=UbU*N$C; 

IF K TR-»= 2 THEN GO TO SA9E1 ; 

OTi(I»=lUTOm ; 

UT1 ( 2) =1UTG< 21 » 

UTH 3»=UTSOJ 
VE N=-0 AO*VC*AMO; 

VNS --0bU*VC*8M0; 

ac= aoo-few-vew; 

BC-bUU -FNS-VNS ; 

asv=am; 

bSV=SMj 

am=amo; 

bH=bMu; 

R2S=R2; 

K2 = R2UJ 
NA=NPUI IJ ; 

Nb=NPU(2); 

WRITE FILE (FINEI FROM 4FIN0ATAJ ; 

AM= ASV ; 

OM*bSV; 

K2=R2S> 

SAVfcl: VEw=-GAG*VC*AM ; 

VNS=-ObO*VC*bM» 
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0T1 1 1 )= IUT < 1» ; 

UTi(2)=luT<2); 

UU( 3J=UT; 

AOAON-FEG-VEWJ 

bC=80N-FNS-VN$T 

K-I} 

NA=NP < 1 >; 

wa=NP( 2 l i 

WRITE FILE(F1N6) FROM (FI NDATA) • 

XA=HD*ORCU< 1 )/ ORCO(3 ) ; 

YA=H0*DRC0(2»/URC0(3) J 
ZA=HO; 

DO 1*1 TO A} 

ax=xa-tci i ); 

YY=YA-TC( 1+AX i 

rp-surt c xx*xx+,vy*yy+za*zaj ; 

LA*XX/RP; 

MU=YY/RP( 

NU=ZA/RP* 

KA=RBS/NU; 

RA=2.5E-01/(RA*RAIJ 
IF 1*1 J 1*3 THEN 6U TO A0C5 
ELSE GO TO BOC; 

AUCS AUPt l)=(NP(I+2i*MU>/SURT( 1.0EO+RA*BSLNU+2 )**2*( 1.0EO-MO*MU) I 
GU fO RET1 J 

EOCS AUP ( 1 1= ( NP ( 1+2) *L A) / SORT ( 1.0EO+RA*BSLNU+2>**2*( l.OEG-LA*LAI » 
RETH END; 

i no t= u r * ioooc.o; 
ist=ut; 

isT=isr*ioooo; 

IF XST*1 NUT THEN GO TO COHPAMB! 

GETCN: AGPO= AGP * 

AUO=AONJ 

BUO-BON} 

GO TO NORMAL; 

NEXT; AMO* A«; 

BMU=BM« 

XUTO=IUTj 
NUG=0RC0(3)i 
NPO=NP J 

NORMAL:OTO*UTN; 

utSu=ut; 

E0*ENJ 

NU=NN; 

GO TO BOTH 1; 

compambuf KTK*»=2 then go to okay; 

XA=HD* LAG/NUO» 

ya=hd*mjo/nuo; 

za=hd; 

DO 1=1 TO A; 

XX=XA-TC( I) ; 

YY=YA-TC( I+A)} 

RP= S4W r ( XX*XK*YY*YY*LA*iA i f 

la=xx/rp; 

M0=YY/RPJ 

NU=ZA/RP» 

RA=KBS/NU» 

RA=2.5E-0l/(RA*RAl i 
•IF 1=1 1 1 =3 THEN GO TO AOCOf 
ELSE GO TO BOCO; 
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AOCO: AOPUm=(NPO(I+2)*MU)/SQRT(I.0E0*RA*6SLN( l*2l**2*l 1.0EQ-HU*MU) 

GU TO RET2; ** 

BUCUi AOPU ( I 1 = (NPG( U2)*LA)/SURT ( 1 .0 £0 *RA*BSLN( I *2 l. OEO-LA*LA) 

R£T2S END; ** 

OKAY 5 00 1=1 TO 4; 

ULTA = t ACPI I J -<AOPO (I > 1/ (UT-UTSO >i 
IF Jt= 1 4 I — 3 THEN FEW— EWC*DLTA» 

ELSE FEW=NSC*OLTA; 

ACaU)=AUPUl-FfcW; 

END; 

Ul2<l>=lUT(l); 

UT2( 21 = 1 CT(2) ; 
uI2( 3J*UT; 
acm=acb (J) ; 

ACC=ACb< 11 ; 

BC M= AC B ( 4 ) ; 

BCC=ACB(2) J 

WRITE FILt IAMBI FROM ( AMBOATA) ; 

00 TO GETON; 

GOBACK SC0PY=2 i 

CLOSE F 1LE1 DIROOT 1 j 
OPEN F let IDIRIN) l 

PUT FILEILST 1EDITI 'START CARD S: • , S TRTC1 ( PAGE ,A ,4( SKI P( 2) » A (80) 

)); 

ON ENOFI LE( OIKIN) GO TO FINIS; 

GU TO HEAOlj 

R001RJ READ FILE (DIR INI INTO (01RDAT A) , 

U TRD=UT ; 

IF PACT= 'PACT' THEN PUT FILE t LSTI EDIT! IUT.UTRO, A,EP ,DRCO) 

<SKIP.X(2),2(F(2),xmi,F(7,4) t 5(X(4),F(ll,8)) 1 ; 
ELSE IF IDL (11 =0 & 0L<0.0 THEN 

PUT FILE(LST IEOIT( IUT ,UTRD , I AL ,ALM, 

, I UL , DIM, A, EP, DRC 0 1 (SKIP,2(F(21, 

XI 111 ,F(7,4l ,X(4l,2(F(2l,Xmi,F(6,3) 
,X(51, A, Fill ,X (11, F(21,Xm,F( 6, 31, 

5 ( X (41 ,FUI,8l Hi 

ELSE 

PUT FILE (LSI) EDIT! IUT ,UTRO, IAL, ALN, IDL , 
OLM, A , EP , DRC 01 (SKIP,2(F(2) ,X(1) 1 ,F(7,4 I, 
X(4),2(F<2), XI 111 ,F< 6,3) ,X(4l,F(3l ,X(ll , 

FI 21 ,X(1),F(6,3|, 5 (X(4),F( 11,8)1 I J 

LNKT=LNKT+1 ; 

IF LNKT>39 THEN GO TO HEADIj 
GU TO rddir; 

FLUSH: ON EN0FILEICARU1 GO TO FINIT; 

PUT FI LE ( LST) EDIT ( ' CONVEKS ION ERROR PLEASE CHECK CARDS') 

( SKIP, A); 

FLSHCUi GET FILE (CARD) EDIT (UUM 1 ( X < 76) , A( 4) ) ; 

GU TO FLSHCD; 

FINITs CLOSE FILEIDIRUUTi; 

FINIS : CLOSE FILE (DIRINJ, FILEICAROlJ 

EXI T:Rt TURN ; 

END; 

/* ENU UF DATA 

PHASE DR0IJ04,ORCIJ02 
// EXEC PL/ I 

* PROCESS NOOPT , LI STU»STMT 
OUTPUT: PROCEDURE ISEQ.KR); 
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uECLARE FINE FILE RECORD OUTPUT ENVIRONMENT I F I 3400, 136) MEOI UM 
(SYS018,2314)), 

AMB FILE RECORD OUTPUT ENVIRONMENT (F(1680,56) MEDIUM 
(SYSG18,2314) )* 

FINE IN FILE RECORD INPUT ENVIRONMENT ( F 13400, 136 1 MEDIUM 
(SYSCI8,2314)) f 

A MB IN FILE RECORD INPUT ENVIRONMENT CF <1680, *6) MEDIUM 
( 3YS018 , 2314) ) , 

TFINE FILE RECORD OUTPUT ENVIRONMENT (F (3400, 136IME0IUM 

I SV SO 19 ,2314) ) , 

TAMB FILE RECORD OUTPUT ENVIRONMENT (F11680,56) MEDIUM 

ISY SO 19 ,2314)1, 

TF1N6I FILE RECORD INPUT ENVIRONMENT IF 1 3400, 136 ) MEDIUM 

(SYSO 19,2314) ), 

TAMB1N FILE RECORD INPUT ENVIRONMENT (FU680,56> MEDIUM 

<SYS019,2314) ); 

DECLARE LST FILE PRINT ENV IRONMENT (F 1 1 30) MEDIUM ( SYSLST * 1403) 

); 


DECLARE 1 F INDATA, 2 UTl(3) FLOAT DECIMAL, 

2 NIL CHARACTER! 4) , 

(2 AC ,2 6C,2 AM, 2 BM,2 C.2 RNG, 2 OAO, 2 OBO, 
2 na ,2 nb) float decimal us), 

2 ST CHARACTER (4), 2 PT CHARACTER (3), 

2 CD CHARACTER !1), 

2 FINED (4) FLOAT DEC IMAL 115), 
l AMBDAT A ,2 UT2 (3 ) FLOAT DECIMAL, 

2 NL CHARACTER (4), 

12 ACM, 2 ACC, 2 UCM, 2 BCC ) FLOAT DECIMAL! 15), 
2 STT CHARACTER (4), 2 PLTT CHARACTER ( 3) , 

2 COD CHARACTER (1); 

DECLARE IUT ( 2 ) FIXED BINARY » 

UECLAKt (FEN^FNS,VEH,VNS,Pi,UT) FLOAT DECIMAL <15)5 
DECLARE IPLCjPLTO) CHARACTER <3), 

KK CHARACTER (7),SEQ CHARACTER ! 8 ) ; 

DECLARE NMRR EXTERNAL, MRR ( ICO ) CHARACTER 13) EXTERNAL, 

STA CHARACTER.! 4) EXTERNAL , TYPE CHARACTER! 10) EXTERNAL, 
PLT CHARACTER 13) EXTERNAL, 

1 DAY DEFINED DAYE ,12 YR.2 MO,2 DA)CHARACTER 12), 

(EMC, NSC, VC) FLOAT DECIMAL 1 15) EXTERNAL; 

DECLARE DAYE CHARACTER (6 ) J 


IF SEti=* AUDIT ION* & RR* 'START • THEN DO; 

OPEN FILE (FINEIN), FILE! AMB IN), 
FILEiTFINE), FILEITAMb); 

ON ENDFiL E( FINEIN ) GO TO AMBT , 

READ FILE (FINEIN) INTO (FINDATA) ; 
IF CD= * 9* THEN GO TO FINET; 

ELSE GO TO MRTFN; 

FINET: READ FILE(FINEIN) INTO (FINDATA); 
HRTFNi WRITE FILEITFINE) FROM (FINDATA); 
GO TO FINET; 

AMBT: ON ENOFILE (AMBIN) GO TO EX1T1; 
RAMB: READ FILE (AMBIN) INTO (AMBDATA); 
WRITE FILEITAMB) FROM ( AMBDATA I ; 
GO TO RAMB; 

EXITi: CLOSE FILEIFINEINI.FILEIAMBIN), 
FILE! TFINE) , FILE (TAMB) ; 

return; 


END; 

uaye=date; 

PI=3.141592653E00; 
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iF S£U=' INITIAL • THEN GO TO STPPUf; 
uPEN FILE < TFINfcl ) »FiLE(TAMBIN); 

ON £NDPILt(TFINEl I GO TO AMBl; 

UN ENOFlLEdAMBIN) GO To STPPUT; 

FINl: READ FI Lc( TFINfcl I INTGIFINDATA) i 

IF NMKK>0 THEN DO 1=1 TO NMRR ; 

IF PT =MKR 1 1 J THEN GO TO FINl; 

eno; 

WRITE F ILEI FINE ) F ROM I FIN OAT A ) i 
GO Tu FINl; 

AMbli READ FILfc (TAMB1N1 INTO (AM8DATA); 

IF NMKR>Q THEN UO 1=1 TO NMRK ; 

IF PLTT=MRRU) THEN GO TO AMB1; 

end; 

WRITE F ILEI AMB 1 FROM I AM BOAT A) ; 
uO TU AMbl; 

STPPUTi CLOSE FILE (FINE) .FILEIAMB) J 

OPEN FILtIFINfcINIf FlLEIAMtJlN) J 
ON ENUFlLE(FINfclN) GO TO PRTAMB; 

PL TO= • OOC ' • 

INFINEiREAO FILE ( FINE IN) INTOIFINDATA!; 

ST A=5T ; 

PLT=PT ; 

IF PLT*'=PLTU J LNKT=4Q THEN GO TO HEUH 

ELSE GO TO LINFJ 

HLUl : PUT FILE (LST J EDIT ('FINE ANTENNA OA T A FOR STATION *,STA, 

• PLATE NO.* ,PLT,TYPE,MO,'/.»,DA,'/' t YRllPAGE,X(35>, 
A,Al4) ,A,A( 3),X(2) ,A(1Q) ,X(27) ,A(2),2(A,A(2))J; 

POT FILE(LST) EDIT 4 1 FLASH TIME ' » • AC* * 'BC ' • 'AM* , • BM* * 

•UA/UT* . 'Dd/DT* t »NA* *• NB* • * COURSE* * 'RANGE* * 'FEW* 
S FNS ( **VEW»»'VNS* )(SKIP(2),XI2I,A,2(X(6),A),X(5), 

2 IX (4) , A) ,X (2 ),A,X(6) ,A,X(8), A,X(6),A,X<5) ,A,X( 6) , 

au.xUdi; 

lnk t=3 ; 

LINE I PEW=OAU*fcwC; 

FNS=IJbO*NSC ; 

VEW=VC*AM*(-DAO>; 

Vi\iS=VC*BH* C-OBG); 

C=PI/2.0E0-C; 

IUT ( 1 i=UTl II) ; 

1UT(2)=UTH2 ); 
uI=UUI 3) ; 

PUT FILfc (LST) EDIT I IUT*UT» AC »BC,AM,BM, DAO, D60, NA ,NB, C »RNG # 
FEW, FNS, VEW, VNSI(SKIP,2(F(2),X(1)),F(7,4),X( 1), 

2PI 8. 3), 2F( 6,3), Xtl) , 2F ( 7 , 3) , XI 1) ,2F 1 10 ,6 ) , F ( 10 ,5 > , 
F(11,2),X(1),4F(7,3) ) i 

plto=plt; 

LNKT=LNKT+I ; 

GO TG infine; 

PRTAMB : UN ENUFI LE ( AMB IN) GO TO STOP. 

PLT0='000* ; 

INAMB: READ PILE(AMBlN) I NT 0 (AMBDATAJS 

STA= STT; 

PLT=PLI T ; 

IF PLT-»= PL TO | LNKT=40 THEN GO TO HED2T 

ELSE GO TO LINA; 

HE02: PUT FILE (LST) EDIT ( 'AMBIGUITY ANTENNA DATA FOR STATION * , 
STA,' PLATE NO. • ,PLT, TY PE^MO, */ ' , DA, »/ YR) (PAGE,X( 4) 
,A,A14),A,A( 3) ,XI2) ,A( 10) ,X(50> , AI2) ,2(A,A(2)) ); 

PUT FILE (LST) EDIT ('FLASH TIME *AC( MED) *, 'ACI COURSE )• , 


130 


> « 



'BC(MfcD) • ,*BC (COURSE >*MSKIP(2l»X(4l»AClOI»Xi9l»A<7)» 
X ( 5 ) ,AU0),X(t>i,A(7),X(5> ,A( 10JJ; 

LNKT=3i 

LINA: IUT( 1)=UT2I U ; 

IUT(2)=UT2(2 I; 

UT=UT2(3l; 

PUT FILE ( LST I EDIT < I UT.UT, ACM , ACC . BCM, BCC) < SKI P , X (2 ) , 

2(Fl2t,XU)),F( 7,4j,MX(4>,FU0.3ms 

PLT0=PLT; 

lnkt=lnkt +Ij 
< i0 TC INAMB} 

STOP: CLOSE FILE ( FI NE1N ) » F ILE ( AmBIN) ,F IL£( LST » J 
DUNE: return; 
eng; 

/* END Of DATA 

/6 END OF JOB 
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i 1440 1 , DRO IK 


* OROiK; K.KGPP AAP 

// OPTION CATAL 

PHASE DRO IK, ROOT 
// EXEC PL/I 

* PROCESS L 1ST UtNOUPT 
0RZ01KJ PROCEDURE OPT IUNS I MA IN » ; 

DECLARE 


INPUT FILE STREAM INPUT ENVIRONMENT 
( FT 80 ) MEDIUM ($YSIPT»2 540) J , 

TFINE FILE RECORD OUTPUT ENVIRONMENT 
I F( 3400 , 136 ) MEDIUM ( SYS019 ,2 31 A) I , 
TFINE I FILE RECORO INPUT ENVIRONMENT 
( F( 3400 > 136). MEDIUM ( SVSO 19 ,2 31 AH , 
M_OUT FILE RECORD OUTPUT ENVIRONMENT 
(F(18C0,72) MEDIUM (SYS019 ,2314) ) , 
M_1N FILE RECCED INPUT ENVIRONMENT 

(F(18GQ,72) MEDIUM I SYSO 19, 231 4) ) » 
C_QUT FILE RECORD OUTPUT ENVIRONMENT 
(F< 1800,72) MEDIUM ( S YSO 19, 231 4)) , 
C_I N FILE RECORO INPUT ENVIRONMENT 

!F( 1800,72) MEDIUM (SY $019, 2314)1, 
FINEIN FILE RECORO INPUT ENVIRONMENT 
(FI 3400,136) MEDIUM I SYS018 ,2314) ) , 
FINE FILE RECURD OUTPUT ENVIRONMENT 

(F (3400,136 ) MEDIUM ( SYSO 18 ,2314) ) , 
AMD IN FILE RECORD INPUT ENVIRONMENT 

( F( 1680,3b) MEDIUM ( SYS018 ,2314) ) , 
1 FINE_SAV.E, 

(2 HR, 

2 MN, 

2 SEC) FLOAT, 

2 EX CHARACTERS) , 

(2 AC, 

2 8C , 


2 AMU, 

2 8MQ, 

2 C, 

2 R, 

2 DA, 

2 D8 , 

2 NA, 

2 NO) 

2 STA 
2 F_ PLATE 
2 CODE 
(2 RA, 

2 RB, 

2 AM, 

2 BM) 

1 AM8_SAVE, 

(2 AC_AMB, 

2 BC_AM8, 

2 AM_AHB, 

2 BM_AMB) 

(2 AMBHR, 

2 AM8MN) 

2 AMBSC 
2 RES2 
2 CONSTANTSA 
2 APLATE 


FLUAT(IO), 
CHARACTERS) , 
CHARACTER! 3), 
CHARACTER!!) , 


FLOAT(IO), 


FLOAT! 10), 

FI XEDS) , 
FIXED! 6,3), 
CHARACTERI20), 
CHARACTER! 5) , 
CHARACTERS) , 


0R0001 

OROOC2 

CR0003 

OR0004 

ORJ005 

OR0007 

DR00C9 

DROCll 

DR 3 0121 

DR00123 

0R00125 

OR00127 

ORO 0 129 

OR0013 

0RGC14 

DRO 015 

DR0016 

UR0D165 

DRO 01 7 

DR0018 

DR DC 19 

ORO 020 

DR0021 

DR0022 

UR0023 

ORO 02 34 

OR00235 

DR00236 

DRO 02 37 

OROO230 

UR002 39 

ORQ023A 

DR0023B 

0R0023C 

ORO 02 3D 

0R0024 

OR0C26 

DR0027 

DR0C28 

OR0029 

DRG0295 

DR00296 

OR00297 

DR0030 

DR0031 

DR0032 
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2 CONST ANTS5 CHARACTERS), 


DR0033 

l AMB_IN, 



DR30333 

(2 AHR, 



DR00334 

2 AMN, 



DROO 3 35 

2 ASCI FLOAT 

f 


DRO 0 3 36 

2 EXT CHARACTERS), 


DR003365 

1 2 AC_M, 



DRO 3 3 37 

2 AC_C, 



DRQ033B 

2 BC_M, 



UR00339 

2 DC_C) FLOATnO), 


DR0033A 

2 AST A CHARACTER! 4 1 , 


DK00 3 3B 

2 PLATE CHARACTERS), 


OR0033C 

2 ACUDE CHARACTER! 1), 


DR0033D 

BLANKS 



DR0034 

CHARAC TER! 20) , 



DR0C35 

PLOT_COOE 



DR0036 

CHARACTER! 1> , 



DR 003 7 

COE FIXED! 11, 


DRO 03 73 

1HRS , 



DR00374 

CORECT, 



DR003745 

MIN) 



DRO 03 73 

FIXED12) , 



DR00376 

1CPLATE, 



DR 0 0 3 7 7 

OPLATEI FIXED! 31, 


DR00373 

PKE V_PLATE 



DR0C3B 

CHARACTER! 3), 



GR0039 

SSTA 



DR00395 

CHARAC TER! A), 



DR00396 

CONSTANTS 1 



DR0040 

C HA RAC TER111), 



URQ041 

CONSTANTS2 



DR0042 

CHARACTER !28l , 



DR0043 

(EOP, 



DR00432 

COATE, 



0R00433 

CORAM ( 30 1 , 

C GKBM(5G ) v 


0R004335 

CUN STAN TS3I 



DR00434 

CHARACTER! 10) , 



DR00435 

C0NSTANTS6 



UK 0 G 4 4 

CHARACTER! 30) , 



DRO 04 5 

(CONSTANTS, 



DR0046 

FKEU) 



DR 0 0 4 7 

CHARACTER! 10), 



0R0048 

(oec_a, uec_a. 

l A# 16 » 

OlFF_AC, 

DR 00 49 

DEC_AM , DEC_BM, 

I A _H» IB_M, 

0IFF_BM* 

UR0C50 

UEC_AC, UEC_BC, 

I A_t v I B_C t 

01FF_BC, 

DRO 050 5 

CHR , CMN, 

CSECt 


DR0031 

HCD! 50) » MCl> ! 50 ) , SCO! 50), 


DRO 0 511 

UH, 

iMt 

US, 

DR00512 

KSAM, 

KS8M, 


DR00513 

KSAC, 

&SBC 9 


DRO 0514 

KS1A, 

KSlb) 


0R00515 

FLOAT, 



DR0052 

(FINE.FLAG, 



DR 00 5 3 

AHB_FLAGI 



DR0Q54 

BIT! 1) , 



QRO055 

(AMB_UT, 

NUT, 


0R0056 

UT_S, 



DRO 057 

AM_M, 

BM_H f 


OR0064 

AM_C, 

6H_C, 


DR0065 

M_QAM, 

H_QBM, 


0R0066 
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C_OAM, 

UAM_C « 

WBM_M» 

UBM_C, 

KCA_$UM, 

KCAM_SUM» 

KCAC_SUM, 

SAVE.KCA, 

SAVfc.KCAM, 

SAVE_KCAC* 

K.CA y 
KCAM, 

KCAC, 

FINE.KCA, 

AVE_KCAH» 

AVt_KCAC» 
vAl_ac, 

VAL_BM, 

val_bcj 

FLOAT ( 101 5 

LiEC LAKE KF(6) FIXED BINARY; 

DECLARE 

(CORCT, 

LT1 BINARY FIXEDU5I. 

ST( 3J> CHARACTERS), 

PLT ( 30 I CHARACTERS), 

KSB(30) FIXED! 5,3), 

KSAL3QI F IXE0( 5, 3) * 

PC ( 30 l CHARACTER (111 

FORMAT i A (.101 ,4Ft 10,3),A(19) ,A(1) ,AI5),A(3),A(2)H 
FukMAT (A4 10) ,4F( 10, 3 I, A ( 20 ) , A ( 5) , A 13 > , A( 2) 1 5 
PROCEDURE! 

IF CLKAMtCURCTl^ 1 • E CORBM ( CORCT) *» ' 

THEN DO! 

CORE T=CuRC T + l * 

CSEC=SCD(CURCT); 

CMN=MCD(COKCT) ; 

CHR* HC D 1 CORC T 1 ; 

CO TO ftOREC! 

END: 

CORAM ( CURCT )-»= ■ • 

THEN GET ST Rl NO tCUR AM t CORCT 1 ) EDIT ( AMU ) (F(10,3)); 
COR6H (CURCT )-•=* * 

THEN GET STRING (CORBM t CORCT 1 1 EDITIBMU) (F(10,3)>; 

oORC T-CuRCT +1, 

CSEC-SCD (CURCT ) ; CMN-HCO(CQRC T) » CHR=HCOt CORCT) 5 

END; f* END CORRECT PROCEDURE */ 

PRINTS PROCEDURE; 

/* CUNT INUEQ PLATE */ 

If PLTE=1 THEN OD-; 

/* CONTINUED PAGE */ 

IF PAGE=1 THEN DO; 

PDT EDIT (HRSt * *»HIN»* • .SEC, AC,BC, AH, BM, RA, RB) 

(SKIP Cl) ,F(2) •AU),FI2) l A(l) t F(6,3), 

4E (12,3) ,2F( 121) ; 

LINE*LINE+1; 

end; 

/* NEW PAGE ♦/ 

ELSE DO; 

PUT ED IT ( *UT • , • AC* BC ' , 'AH' . * RA* »• RB* * • P STa«, 


FORMATFs 
FOKMATL ! 
CORRtCT: 


IF 

IF 


C..QBM, 


KCB_SUM, 

KCBM.SUM, 

KCBC.SUM, 

SAVE_KCB, 

save_kcbm, 

SA¥E_KCBC, 

KCB, 

KCBM, 

KCfaC, 

FINfc_KCfl, 

AVE_KCBM, 

AVE_KCBC, 


0R0067 
DR0068 
0R0069 
DR3070 
DR0072 
DR0073 
DR0074 
010075 
0RG076 
010077 
OR0078 
DR0079 
OROOBO 
DRO 081 
DR00B2 
DR0083 
DRQ084 
OROOB5 
DR0086 
DR0087 

DRO 870 
DR008704 
DR008705 
DRO 871 
DRO 872 
DKQ 873 
DRO 8735 
DRO 8736 
000874 
DR00875 
DR 1* 

DR 2* 

DR 3* 

OR 4* 

OR 5* 

DR 6* 

OR 7* 

OR 8* 

OR 9 * 
ORIQ* 

OR 11* 
0R12* 

DR 1 3* 

DR 14* 
0R15* 

DR 16* 

DR0088 

DR0089 

OR0090 

DR0091 

DRO 092 

0RQ093 

DRO 094 

DR 00945 

DR0095 

DK0096 

DR0097 

DR0098 

OR0099 
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•PLATE*)lPAG£,X(6),A(i4l,3A(l2) f A(l4>,A(12), 
A(4),2A(7) ) ; 

PUT EDIT I HRS, • ',MIN»* * , SEC, AC ,6C,AM,BM,RA,R8) 
(SK1P(2),F(2),A(1),F(2),.A(1 ),F<6, 31, 
4FU2,3)»2F(i2l) i 
PAGE=1J LlNE=LIN£+3j 

END; 

ENUi 

/* NER PLATE */ 

ELSE DU; 

/* CONTINUED PAGE */ 

IF PAGE=1 THEN DOS 

PUT EdUIHRS,* '.MIN,' * ,SEC,AC,8C,AM,BM, 

RA*kfl, CONSTANT S3) 

($KIP(2),F (2> ,A(1) ,F(2),A(l),F( 6,3), 
4F112,3),2F( 12),X(2).A(12) ); 

PLTE=i; LlNE=LlNE+25 

ENDS 


/* NtW PAGE */ 

ELSE DOS 

PUT EDlT<*UT»,*AC»,»BC»»'AM* , • BM* , • RA» , ■ RB* , • P STA*, 
•PLATE 1 > (PAGE, X(6 I, A( 14),3A( 12I,A( 141 ,AI 12) , 

A( 4) ,2A ( 7) I S 

PUT EDIUHRS,.* '.MIN,* * ,S£C, A€,BC,AM,BM, 

RA,R8, COAST ANTS3) 

(SKIP (2 I ,F(2> ,A(LJ,F(2) ,AU),F16,JI, 

4F ( 12, 3) • 2F( 12) » X< 2) ,A( 12) ); 

PAGE=1S PLTE=1; LINE=LINE*3J 

END ; 

ENOS 

ENDS 
START: 
kF = C " 

ON ENDFILE! INPUT) GO TO FINISH; 

/* READ LEAD CARO */ 

GET FILE( INPUT )EOIT(FIN£_FLAG,AHB_FLAG,CUR£CT, EX) 

(t)( l> ,X( 1) ,B(1),X(1),F(2 ),A(74») S 
/* SAVE START CARD INFORMATION */ 

GET FILE 1 1 NPUT ) EDIT ( CODE , SST A, FREQ, COAT E,NO,EOP,EX) 

(X( 1>»A( 1),X(4),A(4) ,X(20),2A(10),X(L),F(L), 
X(8),2A(10)i; 

/* PROCESS FINE DATA */ 

IF -FINE_FLAG THEN GO TO AMB ; : 

OPEN FlLE(TFINEl,FlL£«FINEIN); 

ON ENDFILE (FINEIN)GO TO AVE^FINE; 

ON ENDFILE (INPUT! GO TO REC1S 

KCA_SUM=0; KCB_SUM=0; N=OS J=0; CT=0; 

C0ftCT=i; CsEC=999.9; CHN*999.9; CHR=999.9; 

if cokect ~«= o then do 1*1 to corect; 

GET FILE( I NPUT) EDIT (HCD( I ) ,HCD( I ) » SCD( 1 ) , CORAfU I), 
CUR8MU ),EX) (2F(2) , F( 4, 2 ) ,X (9 ) , A(3 ) , 

X(T)»A(3J»A(50)I S 


end; 

LOOP: 

ct=ct+i; 

GET FILE (INPUT) EDIT ( PC(€T) ,KSA( CT) ,KSB(CT I »ST ( CT ) , PLT ( CT ) ) 

(A< 1),X(9),2F(5,3) ,X(49) t X(4l ,A(4) ,A(3)) ; 


GO TO LOOP; 
KEC1 : 

CT=CT-l; 


DR 3 1C 0 
0K0101 
UR01C-2 
DRO 103 
DRO 10 35 
DR0104 
DRO 1C 5 
DRO 106 
DRO 10 7 
DRO 108 
DRO 109 
OR0110 
DRO 111 
DRO 11 15 
DRO 112 
DRO 1 1 25 
DRO 113 
DRO 114 
DR3115 
DRO 1 1 6 
DRO 117 
DR0118 
DRO 119 
DR0120 
DRO 1205 
DRO 121 
DRO 1215 
DRO 12 2 
DRO 12 3 
DRO 124 
DR 0 1 2 5 
DRO 126 


ORO 127 
UK0L28 
DRO 129 
DRO 12 95 
DRO 130 
OR0131 
DRO 132 
DRO 133 
0R0134 
DRO 135 
DR012 75 
DRO 1276 
0R0136 
DR0137 

ORO 1375 
0RQ1376 
DR 

DRO 13775 
DRO 13 78 
DRO 138 
DR01381 
DRO 1382 

DR01384 
ORO 13845 
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CS£L=SCOm; CMN=HCDU); CHR-HCOCI); CORCT=1j DRO 13^46 
FSTRD: READ FILE IFlNEINtlNTO {FiNE^SAVEI ; DR01385 

IF C00E= , 9» THEM GO TO FSTRO; 

/* CORRECT OATA VALUES FOR TIME IF NECESSARY */ OR013854 


IF SEC=CSEC THEN IF MN=CMN THEN IF HR=CHR 


ORO 13855 

THEN CALL CORRECT; 


DRO 13856 

OSK.CHRJ 


DRO 13 86 

00 1=1 TO CT; 


DRO 1387 

IF STA=STU) £ F_PLATE=PLT( U THEN 00} 


ORO 139 

PLOT_COD£=PCMI; 


ORO 140 

KSlA=KSA<m 


0R014L 

KS1B=KSB< I> } 


DRO 142 

frev.pl at e=f_plate; 


URQ143 

GO TO fine_plate; 


ORO 144 

ENO; 


ORO 145 

end; 


OROI46 

NOPLTi 


ORO 147 

prev_plate=f_plate; 


ORO 1471 

UG WHILE ( F.PLAT E=PRE V_.PL AT Ei ; 


DR014 7Z 

READ FILE IF I NE INI INTO IF1NE_SAVE); 


OR0I473 

END; 


DRO 1 4 79 

gg to oskchk; 


DRO 1 4 75 

/* EACH plate */ 


ORO 148 

FINE. PL ATE: 


DR0I49 

00 WHILE! F_PLATE= PREV.PL AT EJ } 


ORO 150 

IF PLGT_CGDE=* I* THEN DO; 


DRI 506 

IF ABS< AC )>5 THEN GO TO ROREC; 


ORO 1505 

END; 


ORO 1506 

else IF PLUT.CQOE^'Z' then do; 


ORO 150 7 

IF ABS l BC l>5 THEN GO TO ROREC; 


ORO 1508 

END; 


DR01509 

/* AM, BN, AND KC TOTALS */ 


ORO 151 

OEC_A=MUO(lOO+AM«-AC-KSIA, It; 


UR 01 52 

QEC_B=MUQ( I 00+BMQ-BC-KS1B tit. 


OR0153 

/* IA ANO IB FOR FIRST CARO */ 


. ORO 154 

IF J=0 THEN DO} 


ORO 155 

IF DEC A>.850 THEN IA=49; 


ORO .156 

ELSE IA=50; 


0RG157 

IF OEC_B> • 850 THEN 16=49; 


ORO 158 

ELSE 18=50; 


DK0159 

end; 


ORO 160 

/* FOR OTHER CAROS */ 


ORO 161 

ELSE 00; 


0R0162 

IF SAVE_KCA>=50.I00 THEN IA=50; 


ORO 163 

ELSE IF SAVE_KCA<5O.10O £ DEC_A<0.5CO THEN 

ia=so; 

UKO 164 

ELSE 1A=49{ 


ORO 165 

IF SAVt_KCB>=50. 100 THEN IB=50; 


0R0166 

ELSE IF SAVE_KC6<50. 100 £ 0EC_8<0.500 THEN 

18=505 

OR0167 

ELSE 13=49; 


ORO 166 

END ; 


OROi69 

KCA=OEC_A*-I A ; 


DRO 170 

KC6=DEC.6+I B; 


0R0171 

/* SAVE KC»S OF FIRST CARD */ 


DRO 172 

IF J=Q THEN DO; 


OR0173 

SAVE.KCA=KCA; 


ORO 174 

save_kcb=kcb; 


OR0175 

0=1 ; 


ORO 176 

end; 


DRO 177 

/* TOTAL KC'S FOR AVERAGE */ 


DRO 178 
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kca_sum=kca_sum+kca; 

KC6_SUM=KCtL.SUM**C8; 

N=N+ i; 

/* COMPUTE AM AND 8M */ 

COOfc=PLU T_COOEj 

am=kca+ac; 

8M=KCtiHBC; 

COOt=PLOT_CODE; 

WRITE F I Lt< TFINE I FROM1FIN £_SAV £) i 

KOR tC i 

READ FILE ( FINE IN I INTO (FINE-SAVE); 

IF SEL=CSEC THEN IF MN=CNN THEN IF HR=CHR 
IHEN CALL CORRECT; 

END ; 

GO TO DSK.CHK; 

AVE_F IN E! 

/* AVERAGE KC'S */ 

F1nE_KCA=KCA_SUM/N; 

F I NE_KC6=KC8_SUM/N ; 

CLOSE FILEITF INEI ,FILE( FINEIN); 

/* COMPUTE RESIDUALS AND LIST FINE DATA */ 

OPEN FILE(TFINEIJ,FILE(FINE>; N=Oj 

ON ENDF1 LEI TFINEI ) GO TO REPEAT; 

FINElBL: 

/* START CARO INFORMATION */ 

PUT EDIT ( 'STATION* , 1 KCA' , • KCB* » t FREi)*»*CALIb DATE') 

I PAGE, XI 5) , A( 7 ) , X( 6) »4A( 12)1 ; 

PUT EDIT ( SST A ,FINE_KCA» FI NE_KCti, FREU, CDATE, EOP ) 

(SKIP! 2) , XI6) , A(4) ,2F( 12,3), XI 3) ,AII9) ,A(20) , 

Al 10)); 

PUT EOITPUT'j'ACS'BC'^AM^'BM' ,»RA»,'RB',*P STA', 

•PLATE* )(SKIP(3) , X (6 ) , A 1 14) , 3A( 12 ) , A ( 14 ) , A ( 12 ) 
AC4),2A<7) ) J 

PAGE=l; PL TE=0 ; LINE=6; 

/* FOR DISK OUTPUT */ 

IF N=0 THEN do; 

COOE=* 9* ; 

ac=fine_kca; bc=fine_kcb; 

GET STKINGICDATE) EDIT IHR.MN.SEC) I X (4 ) , 3FC 2 ) ) J 
GET STRING(FREQ) EDIT (AM) (F(10»3)); 

WRITE F I LEI FINE ) FROM IF IN E_SAVE) ; 

END; 

/* LIST FINE DATA */ 

READ FILEUFINEI ) INTO! F 1NE_S AVE ) ; 

PREV_PLA TE*F_PLATE; 

F 1NE_LI ST J 

00 WHILE(LINE<39); /* EACH PAGE */ 

IF f_plate-.=prev_plate THEN ou; 

PLTE=0; PREV_PLATE=F_PLATE; 

eno; 

/* COMPUTE RESIDUALS */ 

K A= ( A C +F I NE_K C A- AM ) ; 

Rb=(BC+FINE_KCb-BM) i 

CONST ANTS 3=C0DE I I * 'IlSTAJI* '1 1F_PLATE; 

/* FOR DISK OUTPUT */ 

HRS=HR; min=mn; 

IF N=0 THEN WRITE F ILE( FINE ) FROM(FINE_SAVE> ; 
KA=RA*1000.C; RB=RB*1000.0; 

CALL PRINT; 

READ FILE(TF1NEI)INT0CF1NE_SAVE); 


0R0179 
PRO 180 
DRQ 18 1 
DR 0 1 8 2 
URO 1825 
DR 0 1 8 3 
0R0184 
DR01845 
URO 18 5 
DR01885 
URO 186 
DR 0 1 8 7 
PRO 188 
PRO 190 
0R0197 
PRO 198 
DR0199 
DRG200 
PRO 20 1 
DR02C2 
DRD20 3 
DR0204 
DR02GS 
DR0206 
0R02C7 
DR0208 
UR02C9 

ORO 211 

DR021I5 

0R0212 

0R0213 

DR0214 

URO 21 8 

DR0216 

DR0217 

URO 21 8 

DR0219 

DRG2194 

0R02195 

UR02196 

CRO 220 

PRO 221 

OR 022 2 

0R0223 

DR 0223 

UR02254 

UR02255 

DR02256 

DR0226 

0RD227 

DR0228 

DR0229 

DR 0231 

DR0232 

OR 02 3 3 

DR023S 

DR02357 

DR0236 
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/* END of PAGE */ 



LlN£=0; PAGE=G; DRQ237 

GO TO FI NE_LIST; DRQ240 

/* FUR SEguNU LISTING IF NECESSARY */ DR0241 

REPEAT: UR0242 

CLUSt FILE! TFINE I ); 0R0243 

N= N +■ 1 ; QRQ244 

IF N<NU THEN DU; UR0245 

OPEN FiLEITFlNEIii OR0246 

GU TO FIHELBL; OR0247 

ENOi OR 0 243 

/ + AMolGUlTY UATA */ ORO 249 

/* CHECK FOR DATA ♦/ DR0250 

AMB: ORC251 

IF -AMb_FLAG THEN GO TO START; UR0252 

UPtN FlLt(M_OUT) » F IL E< C_UUT ) , F ILE l AMB IN ) ; DRC253 

UN LNUFILE (AMblN) GO TO NEXTC! DR02535 

ON EN0FlLt( INPUT 1 GO TO A Vc_AMB ; OR0256 

RCArt_SuM=0; KCbM_SUrt=0 ; N=0; URC255 

KCAC_SUM=0* KC3C_SUM=G; J=0; OR0256 

CROKO: PRUCtUURE; /* READ MlNITRACK CARD */ DK0257 

GET FILE (INPUT) EDIT I AMa_UT,M_QAM,QAM_CtUbM_M»QBM C,CDE, DR3253 
uPLATfc] <F(6),X(4), 4F( 10,3J»X(9) ,Fm»XU77,F(3I »; 0 


OR 0260 

UR0261 

DR3262 

0R026 25 

DH0263 

OR0264 

OR 0265 

DR0267 

OR 026 8 

0R0269 

0R0270 

ORO 270 1 

ORO 2 70 2 

0R32703 

DRJ2704 

OR02705 

0R02706 

ORO 2 70 7 

OR 02 70 8 

0R02709 

OR0271 

OR02711 

ORO 2 7 12 

DR027I3 

DR02716 

ORO 2 7 15 

DR027I55 

0R027I6 

UR027I7 

0R02718 

0R02719 

0R0272 

OR C 2 7 3 

ORO 274 

ORO 27 5 

ORO 27 52 

DR02753 

ORO 27 54 


END; /* ENU CHORD */ 

OSKkQ: PRUCtUURE; /* READ AM8IGUITY CAMERA DISK */ 

KtAU FICE ( AM8 IN ) INTO IAM8_IN); CONSTANT SA^ASTA; 

Uh-ahr; um=amn; us=asc; 

NUT=AHK *1C0GG+AMN* IOO+ASC; C0NSTANTS5=AC00E ; 

otT STRING (PLATE] EOIT (DPLATE) IF(3J); 

ENU; /* ENU OSKRO */ 

KS IS: PROCEDURE; /* SET KS1 VALUES */ 

/* SET KSI VALUES */ 

ksam=m_uam; ksac=oam_c; ksbm=obm_m; ksbc=Q8M_c; 

CALL crdku; 

/* SAVE VALUES FUR INTERPOLATION */ 

ut_s=am8_ut; val_ac=uam_c ; val_8m=ubm_m; val_bc=08m_c; 

CALL CROKO; 

end; /* ENU KS1S */ 

NEWPLI: PRuCEOURE; J* FIND MA TCHI NG PLATES */ 

UG WHILE (UPLATE-t=CPL ate ) ; 

IF DPLATECCPLATE 

then call dskko; 

It- CPL ATE<uPLATE 

then call crdro; 

end; 

GO Tu TMLCHK; 

END; /* tNO NEXPLT */ 

AM8_PLAT£ : 

CALL USKRO; 

NEXTC : 

CALL CHORD; 

T ME CHK : 

UU WHILE ( AMB_UT-»=NUT ); / * FIND MATCHING TIMES */ 

IF COt=l 

THEN CALL KS1S; 

IF 0PLATE-=CPLAT6 

THEN CALL NEHPLT; 

IF AMb_UT <NUT 

THEN CALL CROR0; 

IF NUT<AM8_uT 

THEN CALL OSKRO; 
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0R02755 
ORO 27 5«j 
DR0276 


end; 

if cde=i then call ksiss 
/* interpolate */ 

tP(AMo_UT-UT_SJ>4COG.O THEN DOS 

OT_S=UT_S+4G40.Gi 

gu to fxeo; 
end; 

IFIAMB_UT-UT_S)>39.0 THEN DO » 

ut_s=ut_s+40.os 

ENOS 

FXEu; IE XBS(GAM_C-VAL_AC)>0.25*IAMB_DT-UT_$JTHEN IF QAM_OVAI — AC 

THEN DO* 

VAL_AC=VAL_AC«-I.C; 

KF II) = L S 
ENO; 

ELSE do; 

4am_c=qah_c+i.c; 

kf { 2 > =1 s 

end; 

IF ABSIUBH M-VAL3^>0.25^<AM8_UT-UT.$JTHEN IF QBM_M>VAL_8M 

THEN ULii 

VAL_BM“tfAL_8rt*1.0; 

KF(3l«l; 
end; 
else do; 

KF (4)=1S 

end; 

IF ABStGBM C-VAL_BC) >0 .25*1 AMB_U T-UT_S) THEN IF (JBM_C>V AL_BC 

THEN DOS 

VAL_aC=VAL_BC+l . 0} 
KFC5)=l; 

ENDS 

ELSE DOS 

QBM_C=Q6M_C+1.CS 

KF (6) = l S 

ENDS 

C UAM=UAH_C* I • 2* ( UAM_C— V AL_AC ) /( AMB_UT-UT_S ) ) S DR02B4 

M «6M=UBM_H-( .4* (tjOM_H-VAL_BM)/( AMB_DT-UT_S) ) » 0R0285 

cIqBR=QBM_C-I.6* I«HN_C-VAL_BC»/( AMB_UT-UT_S) I S DR02B6 

IF KF( I J = 1 THEN VAI AC=VAL_AC- l .05 

IF KF 1 2 I = L THEN OAM_C=QAM_C- l.G S 
IF KF ( 3 ) =1 THEN VAI — t»M=V AL^BH-1 .0 S 
IF KFI4)=l THEN gBW_M=Q8M_M- I. 05 
IF KF 1 5 I =1 THEN VAL_aC=VAL_BC-l.CS 
IF KF( 6) =1 THEN yBM_C=WBM_C-I.OS 


KF=OS 

/* AM.BM, AND KC TOTALS */ DR0287 

DECP: DEC AM=MOO( 100+M_«AM-AC_M-KSAM, US ORO 2B3 

DtC_AC=MUD< I00*C_UAM-AC_C-KSAC,US 0R0289 

UEC_BM=HOO( 100+,H_Q*3M-8C_M-KSBM»I )S UR0290 

OfcC_DC=hOO< lOO+C_OBM-BC_C-KSBC,l)S 0R0291 

/* 1A ANU IB FOR FIRST CAKu */ DR0292 

IF J=0 THEN DUS DR0293 

IF DfcC_AM> .850 THEN IA_M=49S OR0294 

ELSE IA_H= 50 S OR 0295 

IF 0EC_AC>.850 THEN IA_C=49S OR0296 

ELSE I A_C= 50 S DR0297 

IF DEC BIO. 850 THEN IB_M=49S DR0298 

ELSE IB_M=50S ORO 299 
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IF 0EC_BC>.850 T HEN IB_C=49? 

ELSE 1B_C=50? 

END; 

/* FUR OTHER CAROS */ 

EL S E do ; 

IF SAV£_KCAM>=50.100 THEN IA_M=50? 

EL SE IF SAVE_KCAM<50.100 £ OEC_AM<G.50O THEN IA_M=50? 
ELSE IA_M=49? 

IF SA VE_KCAC>=50 .100 THEN 1A_C=50? 

ELSE IF SAVE_KCAC<50. 100 £ DEC_AC<0.500 THEN 1A_C=50? 
ELSE 1A_C=49? 

IF SAVE_KCBM>=5C.10C THEN IB_H=50? 

ELSE IF SAVE_KCBM<50.100 £ D£C_BM<0.500 THEN IB_M=50? 
ELSE IB_M=49? 

IF SAV£_KCttC>=50.iO0 THEN IB_C=5C? 

ELSE IF SAVE_KCBC<50.100 £ DEC_6L<0. 500 THEN IB_C=50? 
ELSE I8_C=49? 

end; 

KCaM=OEC_AM+IA_M ; KCbM=0EC_8M* I8_M? 

KCAC=DEC_AC+1A_C? KCBC=D6C_BC+I8_C } 

/* SAVE KC'S UF FIRST CARD */ 

IF J=0 THEN 00. 

SaVL_kCAM=KCAM; SAVE_KCBM=KC8M? 

SAVE_KCAC=KCAC* SAVE_KC8C=KCBC i 

J= i f 

end; 

/* IUTAL KC'S FOR AVERAGE */ 

KCAM_SUM=KCAM_SUM+KCAM? KCBM_SUM=KCBM_SUM*KCBM ? 

KCAC_SUM-KCAC_SUM+KLACi KC BC_SUM=KC8C_SU«+KC8C; 

N = N * 1 ; 

/* COMPUTE AM ANO BM */ 

AM_M=KCAM+AC_M? BM_M-=KCBM+BC_M» 

am_c=kcac+ac_C{ bm_c=kcbc«-bc_c ; 

ambhr=uh? ambmn=om? ambsc=us; 

aplate=plate; 

/* FOR MEDIUM */ 

AC _A Mb = A C_M i AM_AM b= aM_M l 

3C_AMB=BC_M? 8 M_ AM B- 6M_ W • 

WRITE FILE! M_OUT I FROM! AMB_SAVE> ; 

/* FOR COARSE */ 

AC_AMB=AC_Ci AH_AMB=AM_C; 

BC_AMB=6C_Ci 6M_AMB=BM_C; 

WRITE FILE(C_OUT IFROMl AMd_SAVEI ? 

/* SAVE VALUES FOR INTERPOLATION */ 

ut_s=amb_uts val_ac=qam_c; val^bm^obm^m; val_bc=qbm_c; 

uh=ahk; um=amn? us*asc; 

60 TO AMB_PLATEJ /* END OF PLATE */ 

AVfc_AMBl 

/* AVERAGE KC'S +/ 

ave_kcam=kcam_suh/n» AVE_KCBH=KCBM_SUH/N? 

AVE_KCA£=KCAC_SUM/N; ave_kcbc=kcbc_$um/n; 

KC AC=U£C_AC + U_C? KCBC*OEC_BC+ I B_C 5 

CLOSE Hl£(H_GUTI, FILEIC_OUT»; 

/* COMPOTE REST (X) ALS ANO LIST DATA FOR MEDIUM */ 

OPEN FILE (M_IN) ? N=Q ; 

ON EN0F11.6 I M_ IN > 60 TO COARSE? 

MEOlUMi 

READ FILE(M_1NIINT0(AMB_SAVE|? 

HRS= AMBHK? MIN=AM8MN? SEC=AMBSC? 

PREV_PLATE*APLATE ? 


DR0300 
DRO 30 L 
DR0302 
DR0 30 3 
DR0304 
DR 0 30 5 
ORO 306 
UK0307 
OR33C3 
ORO 30 9 
DR0310 
UR031I 
OR0312 
DR03I3 
CRD 314 
URG315 
OK 0 3 1 6 
ORO 31 7 
ORO 31 8 
DR0319 
DRO 320 
DAO 32 L 
ORO 32 2 
ORO 32 3 
DR0324 
DRQ325 
ORO 32 6 
DRO 32 7 
ORO 32 8 
DR0329 
ORD330 
DR0331 
DR0332 
ORO 3 3.2 5 
ORO 3326 
DR0333 
DRO 334 
DR 033 5 
DRO 33 6 
DRO 3 3 7 
DR0338 
ORO 339 
DRO 340 
OR 034 1 
DRO 342 
DR0343 
CR035Q 
DR0351 
DRO 352 
ORO 35 3 
DRO 354 
ORO 3 19 
ORO 35 5 
DRO 356 
UR0357 
DR0358 
0R0359 
ORO 360 
0R03604 
ORO 361 
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/* STAR T CARD INFORMATION */ 

PUT fculH'STATlON 1 * ‘KCA’t *K-Cft*»*FReU*t*CALI6 OATE* » 

* MEDIUM’ ) 

I PAGE » XI 5) » Al 7) »Xi 6) »4A( 12 ),X( 10),A(6) ) ; 

PUT EDIT <SST A,AV£_KCAM+.G005*SIGN( AVE_KCAM), 

AVE KCBM+ . 0005* S I GNI AV£_KCbM ) »FREG»CDAT £) 
<SKIPi2) ,Xl6>,Al4),2F(12.3),X(3) »Ali9| , AllO) ) ; 

PUT EDIT (• UT* , * AC* »*BC* t * AM* » *3M* , »KA*» * R6* » *P STA» t 

•PLATE* ) t SKIP! 3) ,XI6> . At 14 ) , 3A( 1 2 ) , All^l. AC12). 
A(4),2A(7) j; 

PAcE=l ; PLTfc=o; L I NE=6 ; 

MEDi UM_L I ST-: 

UU WHILE (L1NE<39) } /* EACH PACE */ 

IF APIAT£-®PREV_PLATE THEN DO; 

PRE V_PLA TE^APLATE; 

end; 

/* COMPUTE RE SI DUALS */ 

KA= (A C_AM B+AV E_KCAM-A M_ AMB ) *1 00 0 ; 

( BC_A M8+A Vfc_KC BM-BM_AMB) * 100 C » 

AM= am_amb; 

BM=BM_AMa; 

AC=AC_AMa; 

BC=bC_AMbJ 

CONST ANTS3=* • j JCQNSTANTS4) J APLATEUCONSTANTSS; 

CALL PRINT; 

READ FILEIM_INUNTUIAM8_SAVE) ; 

hrs=ambhr; min=ambmn; sec=ambsc; 

tN0 ; /* END OF PAGE */ 

LINE=0; page=o; 

GO TO MfcUIUM_LIS.T « 

COARSE: 

CLOSE FILE (M_IN); OPEN FJL&(C_IN); 

ON EAUFILE(C_IN) GO TO REPEAT2J 
READ FILEIC_IN)INTUIAMfl_SAVEi; 

hrs=ambhr; min=ambmn; $ec=ambsc; 

prev_plate=apeate; 

/* start card information */ 

PUT EDIT t* STATION* t-'KCA* t*KCB* t *FREO*» *CAL IB DATE*. 
•COARSE • I 

(PAGE»Xt5)»AI7 }|X( 6>,4At 12 ) , X( 10 ) , At 6) ) ; 

PUT EDIT ISSTA,AV£_KCAC,AVE_KC8C,FRL0»CDATE> 

ISKIPI2) ,Xt6) t A( 4) ,2F( I2 f 3), XI3),AI19> ,A<10)); 

PUT EDIT <*UT* *• AC* , • 8C * » *AM' > * BM • , *RA*,'RB»» *P STA', 

•PLATE*) I SKIP! 3) ,X 16 ) , At 14) 1 3 A( 12 ) , A 1 14) ,At 12). 

A 1 4 ) • 2A ( 7 ) ) ; 

PAGt=l; PLTE=0; L INE=6 • 

CUARSE_LiST: 

DO WHILE(LInE<39); /* EACH page */ 

IF APLATE-»-=PR£V — PL AT E THEN DO; 

plte=o; prev_peate=aplate; 

END; 

/* COMPOTE RESIDUALS */ 

K A= I AC_AM B+AV E_XC AL - AM_AMB )*1000? RA= RA+ ( . 5*SIGN|KA) ) 

RB- I BC_AMB+AV E_R.C 8C— BM_AMB ) * 1000 ; 

am=am_amb; 

BM=BM_AM3 i 

ac=ac_amb; 

BC - * tiC AMti* 

CONST ANT S3® * * I I C0NSTANTS4| 1 APLATEl l CUNSTANTS5 * 


ORO 36 2 
DR0363 
ORO 364 
ORO 365 
DR0366 
ORO 3665 
DRO 367 
0R336S 
DRO 369 
OR037O 
DR 03 71 
UR0372 
DR 03 ? 4 
ORO 3 7 44 
DRO 3 745 
DR03746 
DR0375 


DR0381 

DRO 382 

DR0383 

UR03334 

0R0384 

OK 038 5 

DR0388 

DRO 3 89 

DR0390 

DR 0 391 

DRO 392 

DR03925 

DRO 39 3 

DRC394 

DR0395 

DR0396 

0R0397 

DR0393 
DR 0400 
DRO 401 
OR04O2 
DRO 40 3 
ORO 40 4 
ORO 40 6 
ORO 40 64 
DRO 406 5 
DR04066 
OR0407 
; OR04C8 


DR0413 
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call print; 

REAO F 1LE IC_1 N) INTO ( AM3_SAVEI » 

hrs=ambhr; min® ah bun; 


t N 0 t 

LlNb=0 ; 

00 TO COAKSt_Ll ST, 
/* EUR SECOND LISTING */ 


REPEAT 2 • 


CLOSE FlLt<C_IN) 


PAGfc=0 ; 


n=n*i; 

IF N<2 THEN 00 ; 

OPEN FILE (M_IN); 
GO TO MEDIUM; 

end; 

/* FUR NEXT SET OF OATA */ 
GU TO start ; 

F 1 M Srt J 


ENO; 

/* ENO OJ- OATA 

/£ END OF JOB 


SEOAMBSC; 

/* END OF PAGE */ 


DR0414 

DK0 415 

DR04I54 

DR3416 

0RD417 

0R0420 

0rO42l 

0R0422 
DRQ423 
OR042A 
URO 42 5 
ORO*26 
OR042 7 
DRO *23 
0R042 9 
OR 0430 
DR043 i 
OR0432 
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* m.harrison;14401odrzoie,l, oia 
// OPTION CAT AL, DECK, SYM 

PHASE URC IE, ROOT 0003 

// EXEC PL/ 1 

* PROCESS LISTl,NCuPT 

OR ZO IE: PROCEDURE OPT IONS! MAIN ) ; 3005 

/^ANTENNA CORRECTIONS */ 0006 

DECLARE 0007 

CARDS F ILE INPUT 0008 

ENV IKGNMENT I MED IUM ! SYSIP T» 254Q) F ( 80 }) , 0009 

LIST NO FILE OUTPUT PRINT 0010 

ENVIRONMENT l MEDIUM! SYSL ST, I A03) FT 132)), 0011 

PUNCH FILE OUTPUT STREAM 0012 

ENVIRONMENT ( MEUI UMI SYSPCH, 2540) F(80)), 0013 

I START EXTERNAL, c01 ^ 

2 C FIXED DECIMAL (1 ) , 0015 

2 ST A FIXED DEC 1MAL! 4) , 0016 

12 RCA, °°1 7 

2 KCti, 0010 

2 FREQ) DECIMAL FLOAT! 7), 

2 CALLED FIXED 0ECIMALL6), 0020 

2 P FIXED DECIMAL !2)» 0021 

2 elank Character !l) ; 
declare 

NPLOTS ( 30 FIXED 3INARYI3I), C023 

CARDNU FIXEO DECIMAL (5), 0024 

SETNU CHARACTEK(2 ), 0025 

(CAKUSTA1,CARDSTA2) FIXED DECIMALS), 0026 

( C Ar DD1 , C AR DD2 ) FIXED DECIMALS), 002 T 

(AC014/), 0028 

SA VtA( 47 ) ) DECIMAL FLUAMlfa); 0029 

DECLARE MATKIXI48) DECIMAL FLUATdb)! 0030 

OPEN FILEICAROS), F ILE ! L l STNG) , F ILE ( PUNCH ) ; 0031 

GET FILE! CARDS) EDIT iSTART) 0032 

(XU) ,FU),X(4),F(4), 3Ft 10, 3 ) ,X 14) , F( 6) »F ( 2) , 0033 

X! 27 ),A(1))« 0034 

/* P=0 DU REGULAR COMPUTATION 0035 

P=1 DO HISTORICAL */ 0036 

IF START .P=0 THEN GO TO PROCEED? 0037 

HISTuR: 0038 

/* READ CUEFp CARDS */ 0039 

DO K 1= 1 TO 2 « 0040 

GET FILE! CARDS) EDIT 0041 

(CArUSTAI iCARDUI ,( MATRIX! I ) DO 1=1 TO 3)»SETN0) 0042 

{F(4>,X(2).F(6),X( 18), 3£( 15, 8,9) ,.X!3> , Ai 2) ) ; 

11=4? 12=8; 0044 

DO J=1 TO 9; 0045 

GET FI LE< CARDS ) EDIT 0046 

!! MATRIX ! 1 ) DO 1=11 TO 12),CARDNC) 

(5E! 15, 8,9) , F! 5)1? 

12=12*5? 0048 

11=11+5; 0049 

END; 0050 

IF Kl=l THEN DO Jl=l TO 47 ;S AVEA! J 1)=MATR l X! J l > ? END; 0051 

ELSE DO Jl=l TO 47; ACU( Jl J=MATRIX ! Jl ) ; END; 0052 

END; /*HI STORICAL */ 0053 

GO TO CUNTINUEI 0054 

PROCEED: 0055 

CALL OVERLAY I'DROIEIM; 0058 

CALL COtFFC! AGO, SAVEA) ? 0057 
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CALL ij VEKLA Y (•OR01t2*); 

CALL PRINT1 ( ACQ, SAVtA) ; 

CONTINUE: 

CALL OVERLAY (*0R0lt3M; 

CALL KESIDLtACO, SAVtA, NPLUTS); 

IF STARl,P=0 THEN DU; 

CALL OVERLAY (•0RC1E4* I S 
CALL OK2PL T (NPLOTS) ; 

END; 

CLOSE f 1L £( CARDS ), FILE! LI STNG), FILE (PUNCH) ; 

END, /* OK2C1E «/ 

/* END OF DATA 
PHASE OKOltli* 

INCLUDE AAPCoA 
INCLUDE ILFOSIMy 
// EXEC PL/t 
* PKUCcSS LISTUtNOUPT 
CCfcFFC: PROCEDURE! ACG,SAVEA>» 

Uf CLARE 

LISTNG FILE OUTPUT PRINT 

ENVIRONMENT {MEDIUM (SYSL ST, 1403) Ft 132 II, 
CARDS FILE INPUT 

ENVIRONMENT (MED I UM C SYSI PT , 2540 ) F( SO) t, 

ui S ki file input recoru 

ENVIKUNMfcNTt MEDIUM! SYS0C3,2314) F< 3400,136) 

/* CARO INPUT */ 

1 start external, 

2 C FIXED DECIMAL ( 1), 

2 STA FIXED 0ECIMALI4), 

(2 KCA, 

2 KCB, 

2 FREo) DECIMAL FLOAT IT I , 

2 CALlttU FIXED DECIMALS), 

2 P FIXED DECIMAL 12), 

2 SPECIAL CHAR (1), 

1 DATA, 

2 or (3) DECIMAL FLOAT, 

2 BLANKS CHARACTERS), 

(2 AC, 

2 ac, 

2 AMI, 

2 BMl* 

2 oEIA, 

2 R2, 

2 DELA, 

2 DECB, 

2 NA, 

2 NB) DECIMAL FLOAT I 16), 

2 STA CHARACTER! 4) , 

2 PLATE CHARACTER! 3) , 

2 PLOT CODE CHARACTER (1), 

(2 RA, 

2 R b» 

2 AM , 

2 DM) DECIMAL FLGATU6), 

RETRNH L ABEL ; 

DECLARE 

ROUND, 

(UECXAfOECYA) FIXED DEC 1MALC 11, 4) , 

/* COEFFICIENTS */ 


0058 
C059 
COoO 
0061 
0062 
MA 63 

0064 

0065 
C066 

0067 

0068 

0070 


0072 
007 3 

0074 

0075 

0076 

0077 

0073 

0080 
00b l 

0032 

0033 
0084 
0035 

0037 

0088 

1006071 

0090 

0091 

0092 
C093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
t 0 101 

0102 
010 3 

0104 

0105 

0106 

0107 

0108 
C 109 
OLIO 

0111 

0112 
0113 
C i 14 
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I SINYCGSY, 

SI NY, COSY, 

XSJNY,XCOSY, YSInY,YCOSY,XYSINY,XYCOSY»X2SINY,X2COSY,Y2SINY , 

Y 2COSY »X 3S1N Y » X3CGSY, Y3SI NY, Y3CQSY , SINY2 ,CGSY2 » 
SiNl,SiN2,CUSl,CUS2, 

X A t YA,X2A,Y2A,X3A.Y3A,XYA* 

ACU 147), 

S A VEA( 47 > , 

Q 7 1, y 72, Q73,g8 1,082,083, 

CGSB,g9A,giOA, QllA,SlNB» ENRStENRC, 

01 1 ,U21 ,glG011,DN, 
fcNK2,<J9B,Q10B, UllB.NSflAR.ESaAR, 

EVALUt»NVALUE» 

ANGLX,ANGLY, 

AO I 4), 60 (4), 

CA, 

CB, 

Q9 2A,U9Q10A, 0901 LA, Q 102A f U 10Q1 1A »U112A, 

092B,U9ylOB, 090113,0102 B,0i0gllB,0U2B, 

DEC Y, 

DtCX, 

MAiRixtan, 

MATRX6 1 9,9) , 

ANSWER 19), 

CGEff , 
culOo, 

BVECTORl 9) , 

SVECT0RI9), 

LEASTI 18) , 

VECTOR 19)) DECIMAL FL0ATI16), 

RcTRNR LABEL; 

DECLARE 

IWHGLEX»WHULEY) DECIMAL FIXEDI7I, 

SEINU CHAKACT ER 1 2 ) , 

HMATRX CHAR AC TEKI12), 

OS I MQ ENTRY, 

(D,E,F) FIXED BI NARY ( 15 ) » 

/* BEGINNING OF PROGRAM ♦/ 

SETNO=*A'i LGGP=0; COLNO=C; 

HMATRX= ‘ELEMENTS OF *J 

OPEN F IL fc( CARDS) , F IL t (USING ) , FILE! OISK1 ) ! 

J2=0; 

STAkTP: 

/♦INITIALIZE FOR SUMS ♦/ 

READ FILEIUISKU 1NTOIUATA); 

IF SPECIAL = ' ' THEN DO i 
KCA-AC; KCB=BC; FREO=AM; 

END ; 

ao=o ; bq=o; svector=o; bvectgr=o; matrx6=q; 

XCUSY=0;XSINY=0; YCOSY=0;YSINY=0;XYSINY=0 ;XYCUSY=0| 

x2SINy=o;x2Cosy=o; Y2SINY=o;Y2CQSY=o; 
Y3S1NY=*0 ;Y3C0SY*0JSINYC0SY=CS SiNY2=0jCOSY2»=0; 

siny=c;cosy=oj 
Q 9A=o;giOA=o;«iiA=o; 
d9b= 0; yica=o ;qhb=o; 

U92A=0; U9Q10A*0i U9011A=0j Q102A=0; QlO«l IA=0J Q112A=0 S 
092B=0; g9QI0B=0; 090118=0; U102B=0; Q100llB=Q;QU2B=0; 
ROUND=, 00005{ 

CALL PAGEHOi 

PUT F1LEILISTNG) EDIT 


0115 

0116 

0117 

0118 

0119 

0120 
0121 
0122 

0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 

0131 

0132 

0133 

0134 

0135 

0136 
C 137 

0138 

0139 
Cl 40 

0141 

0142 

0143 

0144 

0145 

0146 

0149 

0150 

0151 

0152 

0153 

0154 

0155 

0156 

0157 

0158 
0 159 
0160 
0161 

1/06071 
0162 
1/06071 
163 
0171 
0 172 

0173 

0174 

0175 

0176 

0177 

0178 

0179 

0180 
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CtquATiON StT 6* ) C SKI P, X 1 50 J , AC 14 1 ) ; 

RbAOOATAi 0181 

Kir AO FILb(DISKl) INTO C DAT A I ; 0132 

ON ENUFI Lt (DiSKl ) GO TO MATRIX_6; 4 183 

XA=OA1 A. AM-ST ART .KCA» 0185 

YA=UATA.BM-STAKT.KC8; 0186 

/♦COMPUTE X»Y,(X),CY) ♦/ 0187 

OECXA=XA+ROUNO*SlGNCXAJ ; QECYA=YA*RUUNO*SlGNCYA) ; 0188 

*lHULEX=TRUNCl06CKAi } 0189 

WHOLEY-TRUNCCOECYA ); 0190 

UtCX-OfcCXA-WHOLfcX ; 0191 

UtCY=UfcCYA- WHOLE Yi 0192 

ANGLX=UtCX*o. 2831854; 0193 

ANoLY=UECY*6. 2831854; 0 194 

SI N1 s Sl N ( ANGLX) ; 0195 

S1N2-S INC ANGLY); 0196 

CQS1=CGS(mNGLX) ; 0197 

COS2=COS C ANGLYT ; 0198 

X2A-XA*X A; 0199 

Y2A=YA*YA; 0200 

XYA=XA*YA; 0201 

X3A=XA*X2A; 0202 

Y3A=YA*Y2A; 0203 

U1 1= LATA* AC» 

U21=OATA.3C; 0204 

/♦ SUMMATIONS */ 0205 

MATRXb U ,1 )=MATKX6( l,l)+lt 0206 

MATKX6C l,2I=MATRX6i 1»2)+XA; 0207 

MATRX6(1,3)=MATRX6< i,3J+YA; 0208 

MATkXbC 1 ,4) =MATKX6 CI,4J*XYA; 0209 

MATRXbC 1,P»=MATRK6« l,5l+X2A» 0210 

MAT RXb(l»6l=NATRX6Cl,6 I+Y2 A; 0211 

MATkXbC 1^3»=MATRX6C 1,8>»SIN1J 0212 

NATRX6 ( 1 , 9i-=MATRX6C 1,9 l+COSl * 0213 

MATKXt>C2,2J=MATRX6(2,2)+X2A; 0214 

MATKX6C 2,3I = MATRX6(2,3»4XYA; 0215 

MATKXo(2,4)=HATRX6(2,4»*X2A*VA; 0216 

MATRX6(2,6»=MATRX6i2,5»>X3A; 0217 

MATKX6C 2,6J = MATRX6C2,6) + XA+Y2A; 0 218 

MATRX6 (2,8) =MATRX6< 2,8) +XA+S INI * 0219 

MATRX6C2, 9)=MATRX6l2,9)*XA*C0Sl; 0220 

MATRXbC 3, 3>=MATRX6( 3,3 l*Y2A; 0221 

MATkX6 (3 ,4 ) = MATRX6 (3 ,4 I +XA*Y 2A; 0222 

MATRXbC 3,5I=MATRX6C3,5)*X2A*YA; 0223 

MAT RXo (3»b)=MATRX6l 3,6) +Y3A; 0224 

MATkXbC 3,8) — MATRX6 1 3,8)+YA*SlNl; 0225 

MA IRX6C3, 9J=MATRX6( 3,9) +YA*CUS1; 0226 

MATRX6C4,4C=MATRX6C4,4 J+X2A+Y2A, 0227 

MATKX6(4,5)=MATRX6C4,5)+X3A*YA; 0228 

MATKXoC 4,6 J=MATRX6C 4,6 l+XA*Y3A » 0229 

MATKX6C4,8i=MATRX6C4,6>*XYA*SINi; 0230 

MATKX6C 4,9|=MATRX614,9)+XYA*C0SU C231 

MATKX6(5,5>=MATRX6(5,5)4XA*X3A; 023 2 

MATRX6(5,b)=MATRX6(5,6»+X2A4V2A; 0233 

MATKX6C 5, 8 J = MATRK6< 5, 8» ♦ X2 A* SlNl 1 0234 

MATRX6 C5 ,9 )*MATRX6 C5 ,9 1 4X2A*CUS1 ; 0235 

MATK Xt>( b , b ) = MA TK X6 ( 6 ,6 >+YA*Y3A; 0236 

MATRX6 C 6 ,8 l=MATRX6 16,8 )+Y2A*$ IN l* 0237 

MA TKXbC 6, 9) =MATRX6( 6,9)+Y2A*CUSl ; 0238 

MATRX6ld,.8)-MATRX6C8,8l4SIN14SINlj 0239 


146 



MATRX6 (8 «9J =MAFRX61S*9)+SIN1 *CQS1 > 
MA TR X6( 9»9>=MAIRK6(9,9|«-CUSl*CGSi; 
CUSY=CGSY+CGS2} 

SINY=SIfmSIN2; 

SUmY 2=8INY2+S1 N2*SIN2; 
CUSY2=CCJSY2<-CGS2*CQi»2; 
SINYCUSY=S1NYCCSY+S1N2*C0S2J 
XSINY=X$1UY*XA*S1N2; 

XC0SY=XCa8Y + XA*CGS2 5 
YSINY=YSINY*YA*S1 jM2S 
YC0SY=YCUSY*YA*C0S2; 

XYS1 NY=X YSI NY+XY A*SI H 2 i 
XYCUSY=XYC(m*XYA*CUS2; 
X2SlNY=X2SINY«'X2A*SIfo2! 
X2COSY*X2CUSY+X2A*COS2j 
V 2CGSY-Y 2CGS Y+ Y2 A*CO S2 i 
Y28INY=Y2SiNY«-Y2A*SIN2; 
ca=oata.ac*start.kca-data.ah; 

CB= OAT A. BC+ST ART .KCB-DA TA.BM ; 
EVALU£=DArAo AC/OAT A. NA } 

NVALUE=DATA .8C/DATA .NBJ 
£NR2= < kV ALUE*N VALUE )/DATA.R2» 
Da 1A.BETA=1 .5707963-DATA. BETA; 
COSB=COS<OArA.BETA) ; 
SlNb=$iN(DATA.8EFA) ; 

NSQAK- ( l-iMVALUE*NVALU£) /0ATA.R2 i 
ESwAR=( 1-EVALUE*EVALUEI /DATA »R2 1 
Q7 1=ENR2*1-1 *$ INBJ— ESQAR*COS8 * 
Q72=(ESQAK*SI N8— ENK2*CQS8) ; 

Q73- OATA.DELA; 
Q81=ENR2*C058+NSQAR*SINB; 

Q8 2=-ENR2*SlNB+.NSUAR*COS8; 

4jd 3-DATA .DEL B* 

Q9A=y9A+y7l; 

Q1GA=Q10A+Q72i 
Gl lA=yll A+Q73; 

Q92A=Q92A+Q71*U71; 

Q9Q1Q A=Q9Q10 A*Q7 l*Q72; 
q9qiia=Q9Qiia4-q71*q73; 

Q102A =Qi02A+Q72*Q72 J 
yiCQiiA=QioQiiA+Q72*Q73; 

(jl 12 A =QU2A+Q73*Q73S 

Q9B=Q9B+Uaii 

yiOb-aiOB+a82; 

Qi lb=y 11B+Q83. 

Q92B-U92B+Udl*Q31» 

«9yiOb=Q9Qioa«-u8i*g82; 

g9Uiia=u9giiB*yai*«a3; 

yl02b=ai02B+Q82*Q82} 

Q10Q 11B=Q10Q116+G82*Q83S 
<Ql 12 6= Q 1 12B +Q 83*Q 8 3 i 
AQ C 1 l=AQ( 1 I +CA » 

Ay (2 )-Ay ( 2 l+CA*Q7i ; 

AQ (3 )=AQ(3 )*CA*Q72i 
AU(AI=AQ(A)TCA*Q73; 

BQ( 1J=BQI 11+CB; 

8 Q<2 >=BQ(2)+CB*yai ; 

BQI3)=BQ<3»*C8*Q82; 

BU(4)=Bul AI*CB*Q83; 

SVECTORt n = iVEtT0RUi+01l! 


0240 

0241 

0242 

0243 
C 244 
0245 
0 246 
0247 
C 248 

0249 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0258 

0259 
0 260 
0261 

0262 

0263 

0264 

0265 

0266 
0267 

0269 

0270 

0272 

C273 

0274 

0275 

0276 

0277 

0278 
0 279 
0 280 
0281 
0282 

0283 

0284 

0285 

0286 

0287 

0288 

0289 

0290 

0291 

0292 
0 29 3 

0294 

0295 

0296 

0297 

0298 
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SVEC TOR! 2 1 = SVECT0R12 1 +Uil*XA; 0 299 

SVECTGR! 3l=SV£tTOR(3J*011*YA; 0300 

SV ECTOR! 4 j=SVECTGR(4)+Dll*XYA; 0 301 

SVECTUR! 5)=SVECT0R1 51+D11*X2A; 0302 

SVECTUR! 6 )=S VECTOR! 61*01 1*Y2A; 0303 

SVECTUR (8) =SVECT0R18 1*01 i*S INI; 0305 

SVECTUR! 9)=SVECTaRl9)+ull*CGSli 0 306 

BV ECTOR ( 1 )=8VECT OR! 1 1+D2 1 ; 0307 

BVECTOk! 2)=BVECT0R(21+D21*XA; 0308 

BY ECTOR ( 3 1=6 VECTOR! 3 1+021* YA * 0309 

6VECT0R(4)=BVECTQR(4)+D21*XYA; 0310 

BVLCTUR1 5)=BVECTOR(-5) + 021*X2A; 0311 

BV ECTOR! 6)=BVECT OR ( 6 ) +021*7 2A ; 0312 

BV6CTUR18 1 = 6VE€T.0R (8 1 +021*$ IN2J 0314 

6VECT0R(9) =BVEC TORI 91+02 i*C0S2 • C315 

IT START. C=1 THEN DO J 0316 

SVECTUR 1 7) =S VECTOR! 71+01 i*X3 A; 

0VeCTORm = BV£CTOR!7)+U2l*X3A; 0313 

«ATRX6( 1 ,7)=MATKX6( 1,7) +X3A; 0317 

MATRX6(2,7)=MATRX6l,2,71 + XA*X3A* 0 313 

MATRX613, 7)=MATRX6!3,7)+YA*X3A i 0319 

rtATRX6(4,7) = HATRX6!4,7)+X2A*X2A*YA5 0 320 

MATRXo (5 » 7 )=MATRX6( 5,7 ) +X3A*X2A • 

MATRX6(6,7)=MATRX6l6,7)+X3A*Y2A; 

MATKXol 7 » 7) =MATK X61 7»7)+X3A*X3A; 0323 

MATRX6<7,8)=MATRX617,8)+X3A*S1N1S 032 A 

MATKXo(7*9) =MATK X6( 7 ,9 1 +X3 A*C0$ 1 * 0 325 

Y3SINY=Y3SINY+X3A*S1N2; 0326 

Y3COSY=Y3COSY+X3A*CUS2i 0327 

END; 0328 

ELSE DU; 0329 

SVECT0R(7)=SVECT0R(7)+011*Y3A; 0304 

B VECTOR! 7 1=6 VECTOR! 7)+021*Y3A; 0313 

MATRX6! 1»7)=MATRX6< i»7)+Y3A; 0330 

MATRX6l2,7)=MATRX6(2 f 7)+XA*Y3A; 0331 

MATKX6! 3»7)=MATkX6( 3,71+ Y3A*YA; 0332 

MATRX6 14, 7I=HATRX6(4*7 l+XA*Y3A*YA; 0333 

MATRXb! 5 s 7|=MATRX6t5,7)+X2 A*Y3A; 0334 

MATRXb! 6, 7l=MATRX6(6,7)+Y2A*Y3Aj G335 

MATRX6(7,7)=MAIRX6(7,7)+Y3A*Y3A; 0336 

MATRX6(7,8)=HATRX6l 7 ,8I+Y3 A*S1N1 i 0337 

MATRXt><7, 91 -MATrX617,9» + Y3A*COSU 0 338 

Y3S1NY=Y3SINY+Y3A*SIN2J 0339 

Y3CUSY=Y3CUSY+-Y3A*COS2; 0340 

END; 0341 

GO TO REAQOATAr 0365 

/* FILL 9X9 MATRIX AND VECTOR*/ 0366 
MAT Hi X_6: 0367 

13=0; 0368 

DO 11=2 TO 9; 0369 

IJ=1+IJ; 0370 

DO Jl*l TO 1 J; 0371 

MATRX6! U,J1»=MATRX6< Jl.ll> ; 0372 

END; end; GO TO LOOPlJ 0 373 

F ILLM: PROCEDURE ; 0374 

11=1; 0375 

DO 12=1 TO N; 0376 

VECTOR 1121= S VECTOR! 12); 0377 

00 Jl=l TO NJ 0378 

HATH I X! 1 L)=MATRX6 (12 tJl) • 0379 
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11=11+1; 0380 

END; END ; 0381 

U2=J 2+1; 0184 

CALL LI NKPF (0$ IMQtMATR IX, VECTOR, N* 1ERI » 0382 

DO 1*1 TO N} 0383 

ACQ( K1 )= VECTOR t I 1 ; Kl=Kl+l; END; 0384 

IF 1 ER=1 THEN DO* 

PUT FILE (LIST NO) EDIT 

(•NO SOLUTION SET' ,J2,SETNO,IER) 

(SK1P(2),A(151,F(2 1, AUI.F121 1 ; 

END J ELSE; 

END; /* FILLM */ 0385 

/* FILL COEFFICIENTS FDR A */ 0386 

LOUP 1 : 0 387 

DO I N= l TO 2; 0388 

/* SET 1 */ 0 389 

Kl*l; N*3; CALL FILLM; 390 

/* SET 2A */ 0391 

N=6; call filln; 392 

/* SET 3A */ 0393 

N=7; CALL FILLMJ 394 

/* SET 4A ♦/ 0395 

L=Q 5 0396 

11=0; 0397 

DO i = l TO 3*8 TO 9J 0398 

00 J=1 TO 3,8 TO 9; 0399 

11=11+1; MATRIX( 11 ) = MATKX6 (I ,.J > ; END; 0400 

L=L+1; VECT0R(U=$V,ECT0RU); eno; OaOI 


n=5; 

CALL L INKPF (DS1 MO, MATRIX, VECTOR, N»IER); 
IF 1 ER= 1 THEN do; 

PUT FILE (LISTNGJ EDIT 

I* NO SOLUTION SET 4* ,S£TNG, I EK) 

( SKIP, A (171, All I, F(2) I; 
end; else; 


SET4A: 0405 

DO 1=1 TO 5; 0406 

ACO( Kl 1= VECTOR (1 1 ; 

Kl=Kl + l; 0408 

END; 04O9 

/* SET 5 A */ 0410 

n=a; L=0; 0411 

DO 1=1 TO 6, 8 TO 9; C 412 

DO J=I TO 6, 8 TO 9; 0413 

£1=11+1; 0 414 

MATRI X (1 1L=MATRX6< I, J )» 0415 

end; 0416 

L=L+l; 0417 

VECTURl Ll*SvECTOR(I I; 0^18 

END; 0419 


N=8; 

CALL L INKPF ( DSIMU, MATRI X,VECT0R,N»IER1; 
IF IER=1 THEN DO; 

Put FILE (LAST NCI EDIT 
( *NO SOLUTION SET 5* ,SETNU, IERI 
(SKIP, A117I, Alii, F12II I 
ENO; ELSE; 

SETSA: 

DO 1=1 TO 8; 

ACOl K1 )= VEC TOR (II; 


0423 

0424 



ki=ici*i; 


0426 

ENO, 


042 7 

/* SET 6 A */ 


0428 

N= 9 1 CALL FILLM; 


429 

/* PRINT A MATRIX 

AND VECTOR */ 

0430 

k.etrnp=sture; 


0431 

oJ 10 PRINT.MATR IX; 


0432 

STCRE : 


0433 

if in=2 then go to ecuatns; 


0434 

ELSE DU; 


0435 

/* SAVE A COEFFICIENTS */ 

0 436 

do 1=1 to 3a; 


0437 

SAVCAI II=ACOm } 


0438 

end ; 


0439 

/* INITIALIZE FUft 

B CUEFFI CNTS*/ 

C 440 

MATKXfa (3, 1 f=SINY ; 


044 L 

MATRXbld,2>=XSINY; 


0 442 

MATRX6 (d* 4 1= XYSI NY » 


0444 

M ATRX6 ( d ,3 1 =YSI NY» 


0443 

MATRX6I 8, 5 l=X2SINY ; 


0445 

MATRX6<d,6l=Y2SINY; 


0446 

MATRXbI6»7I-Y3SINY *• 


044 7 

MATKX6(d,8J=SINY2; 


044 8 

MATRX6 Id ,9 )=S INYCOSY; 


0449 

MATRX6l9,l)=CaSY; 


0450 

MATRX6(9,2)=XC0SY; 


0451 

MATKX6 (9»3i=YCUSY« 


0452 

MATRX0«9,4i*XYCOSY; 


0453 

MATRX6I9,5»=X2C0 SY ; 


0454 

MATRX6l9,6»=Y2COSY; 


045 5 

MATKX6C9, 7l=Y3COSY; 


0456 

MATRX6 19, 8 I=S INYCOSY; 


0457 

MATRX6(9,9|=CClSY2; 


0458 

DO 1=1 TO 9 ; 


0459 

S VECTOR 1 1 ) = 8V £CT OR! 1 1 i 


0460 

DO J-=8 TO 9; 


046 1 

MATRX6I 1 , J)=MATRX6( J, I), 


0462 

end; 


0 463 

end; 


0464 

end; 


0465 

SE T NL='B ' ; COLNU=0; 


0466 

END; 


0467 

E LjUATNSs 


046 8 

MAlKXbt 1 »2)-y9A; 


0470 

MA1RA6I 1,3»=U10A; 


0471 

MATRXb<l,9»=gilA* 


0472 

MATH Xt>( 2 , 11 =Q9A; 


0473 

MATRX6U,2I = D92A ; 


0474 

MATRXblZ ,31~Q9Q10A; 


04/5 

MATH X6t 2,4l=U9Ql IAJ 


0476 

MATRXt.(3, u = yiOA; 


0477 

MATRX6{3,2I*y9aiOA; 


0478 

MATRX61 3, 3J=«102A; 


0479 

MATRX6 (3,4)=Q10yllA; 


0480 

MATKX6l4,U*yilAj 


0481 

MATRXbl4,2)*09Ql IA ; 


0482 

MATKXb<4,3l=yiOUllA; 


0483 

MATRX6l4,4)=yil2A; 


0484 

DO 1=1 TO 4; 


0485 

svfccroRcn=AQU) ; 


0486 
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end; 

SETNO='A*; CQLNCNOJ 
CALL PAGEHD; 

PUT FILElLlSTNGJ EDIT 

PEiiJATIQN SET 7* ) 1 SK.IP »X I 50 ) »AI 1^ ) ) 5 

ADDITIONS: 

DU I N=1 TO 25 
RETRNP=5ET7A; 

DU TO PRINTOUT; 

/* SET 7 A */ 


5 ET 7A: 

Ki=39; n~4; CALL FILLMj 

/* SET 8 A */ 


N=3» CALL F1LLM; 

/* SET 9A */ 

matrix; i)=matrX6< i,u; 

IF IN=I THEN Do; 

MATRIX{2)=M11A; 
matrix; 3)=dua; 

MATRIXI4I=0II2A; 

wectukuj=aq(i) ; 
vector (2 )=aq;ai ; 
end; 

else do; 

matrix<2)=oiib; 

MATRIX (31*0118; 

MATRIX; A)=mi 28 ; 

VECTUkin-8U( 1) ; 

vector <2 Mao <4 »; 

end; 


n=2; 

CALL LINKPF (OSlMG»MATRIX » VECIGR»Nt IER > i 

acoi46J= vector; ii; 

ACG147 1= VECTOR (2 I ; 

IF I ER = 1 THEN DO; 

PUT FILEIUSTN&I EDIT 
I'NU SOLUTION SET 9*,SETN0t IER » 
<SKIP,A< 171 ,A< U« F«2)l; end; else; 
IF IN= 1 then do; 

MATRX611 ,2)*Q9B; 

MATRX6 ( I« 3I=Q10B; 

MATRX&U ,4»=Q118> 

MATKXol 2»11=Q9B; 

«ATRX6<2,21=U92B; 

MATRXt>(2,3) = Q9Q10B; 

MATRX 6 ( 2 » 4 i= 09 QllB; 

matrx 6(3» n=oioa; 

MATRX6C3,2>*U9Q10B5 
MATRX61 3» 3HU102B; 

MArRX6(3,A)*oioyiie; 

MATRX6(4t 1)=011B; 

MATRX6 <4f2J=Q9UliB» 

KATRX6(4,3l = glO«UB; 

MATRX6I 4 t4I=Q 1 12B ; 

DU 1=1 TO 4; 

AQ( i i=BOdi; 

svtCTURU*=BQm; end; 


STOREC: 


DO 1-39 TO 47; 
saveaU)=acq; i); 


0437 
3 488 
0489 


0490 

0491 

0492 

0493 

0494 

0495 
496 

0497 

498 

0499 

0500 
0 501 

0502 

0503 

0504 

0505 
0 506 

0507 

0508 

0509 

0510 

0511 

0512 

0513 

0514 


0520 

0521 

0522 

0523 
05 24 
0525 
0 526 
0527 
0 52 8 

0529 

0530 

0531 

0532 

0533 

0534 

0535 

0536 

0537 

0538 
0 539 

0540 

0541 
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END; 0542 

SETNO=*6*.; C0LNU=05 0543 

END; 0544 

ELSE; 0545 

ENO; /* END UP ADDITIONS */ 0546 

GO TO ENDRT; 0547 

PR1 NT_MAT RIXJ 0548 

PUT FILEILI STNG) EDIT 0549 

(HMATRX » 'MATRIX* » SETNO) 0550 

(SKIP*X(50),A!12).A(7).A<2)); 0551 

PUT PILE (L1STNG) SKIP; 0552 

OCJ 0553 

DU 1=1 TO 9; 0554 

COLNU=CGLNO*U 0555 

PUT f ILE (LIST N61 EDIT 0556 

1 'CUE* »CGLNO» IMATRX61 1, J ) DO J= I TO 9)1 0557 

( SKIP. A(3).F(2).9EI 14*6) I . 0558 

END; 0559 

PUI PILE ( Li STNG) EDIT 0560 

( HMATRX, 'VECTOR*. SfcTNO) 0561 

I SKIP (21 ,X(50) ,A(12 », At 71, A (2 ) > i 0562 

PUT FILE(LISTNG) EDIT 0563 

(ISVECTOKU) DO 1=1 TO 9)> C5b4 

< SKIP(2)»9EU4,6H; 0565 

PUT FILE (LISTNGi SKIP ; 0566 

GC TO RETRNP; C567 

END; 0568 

PRINTOUT: 0569 

PUT FI LE (LI ST NO) EDIT (HMATRX. 'MATRIX* »S ET NU 1 5 570 

(SKlP,X(50),A(121,A(7J,A(2n; 0571 

PUT FILE(LISTNG) SKIP; 0572 

UO J=1 TO 4 ; 0573 

CGLNG=COLNU+l ; 0574 

PUT FILE (LI STNG) EDIT 0575 

( 'COL* .COL NO, (MATRX6( J.K) DO K=l TO 4M (SKIP, 0576 

X (25) ,A(3) ,F(2I,4E(14,6) I; 0577 

END ; 0578 

PUT FILEILISTNG1 EDIT ( H«A IRX, * VEC TOR • , SETNOJ 0579 

(SKIP(2),X(50).,A(12),A(7),A(2)) ; 0580 

PUT FILE1LI STNG1 EDIT 0581 

( ( Ag ( J ) DU U= 1 TO 41) (SKIP(2), X(25), 4£(I4,6)); 0582 

PUT FILE(LISTNG) SKIP; 0583 

GO TU RETRNP; 0584 

ENDRT ; 0585 

CLOSE F1LE1DISKU; 0586 

CLOSE F ILt( L I STNG) , FILE! CARDS) ; 0587 

END; /* COEFFC */ 0588 

/* 6N0 OF DATA 

// EXEC PL/ I 
* PROCESS LISTO.NOGPT 

P AG EHU i procedure; 1 

DECLARE 2 

LI STNG FILE OUTPUT PRINT 3 

ENV 1KUNMENT (MEDIUM l SYSLST, 140 31 FU32II, 4 

1 START EXTERNAL. 5 

2 C FIXED DECIMAL (1). 6 

2 STA FIXED DECIMAL! 4) , 7 

(2 KCA . 8 

2 KCB, 9 

2 FREQ) DECIMAL FLOAT! 71. 
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2 CALIUD FIXED 0ECIMAL16), XI 

2 P FIXED 0ECIHAU2I, 12 

2 BLANK CHARACTER! 1) , 13 

TODAY CHARACTER1.6) * 14 

DATATYPE OH Aft ACT ER ( 10 1 » 

1 DAY DEFINED TODAY, 15 

<2 Y, 16 

2 M, 17 

2 D> CHARACTERS!; 18 

TODAY=DAT£; 20 

IF START «C=1 THEN DATATYPE-* POLAR*; 

ELSE DATATYPE* • EQUATORIAL* ; 

PUT FlLElLISTNGI PAGE EDIT 

10AT ATYPE, 'CALI BRAT ION*, DAY. H, •/ S UAY.U , •/ • , DAY. Y) 22 

(XI 5) ,A( 101, XU), Alii), X 15). A(2 1 ,A(1),A(2),A(1),A(2)); 23 

PUT FlLElLISTNGI EDIT (• STA* , START . STA KC A = *, 24 

KCA, *KC B KCB, * FREQ = *, PKfcQ, «MC *, 25 

•OATE OF CALIBRATION* .START. CALIB01 26 

1 SKIP! 2 >,A 1 101,413), XI 1),F C4I.XI 3) ,A(6) ,Fl6,3) ,X(3), 27 

A(6! ,F (6 . 3 J , X ( 3 ) » A<6 ),F17,3) , A1 3 ) , X( 1) . A( 19 ) . X( 1 1 , FC 61 » ; 2d 

PUT FlLElLISTNGI SKIP! 2) * 29 

END; /* PAGEHD */ 31 

/* END UF DATA 
PHASE DKC 1E2.DR0 It 1 
// EXEC PL/ 1 
* PROCESS USTO.NOQPT 

PRINT IS PROCEDURE! AGO. SAVEAl ; 0626 

DECLARE 0627 

USING FILE OUTPUT PRINT 0628 

ENV IRUNMENT (MEDIUM! SYSLST.14Q3) FI 132)), 0629 

PUNCH FILE OUTPUT STREAM 

ENVIRONMENT (MEDIUM! SY-SPCH.2540 I FC80)), 0631 

1 START EXTERNAL, 0632 

2 C FIXED DEC I MAL (11. 0633 

2 STA FIXED DECIMAL! 4) 0634 
12 KCA, 0635 

2 KCB, 0636 

2 FREQ I DECIMAL FL0AT171, 

2 CALIUD FIXED DECIMAL ( 6,1 , 0638 

2 P FIXED DECIMAL 1.21, 0639 

2 CLANK CHARACTER 111, 0640 

MATR1X143) DECIMAL FL0AT1161* 641 

CARDSTA1 FIXED DECIMAL! 41, 642 

CAKDNO FIXED DECIMAL 151, 644 

(EXP.MUUEXPl FIXED 0ECIMAL121, 645 

CARDD1 FIXED DEC IMAL (6 1 * 0647 

DECLARE (ACU147), S AVEA(4T 1 , COEF F, CQL0G1 DECIMAL FLOAT! 161; 0648 

DECLARE 649 

SETTYPE1 2) CHARACTER 14 1 , 0643 

SETNO CHARACTER! 21 * 660 

ALPHAC 19) CHARACTER! 5), 851 

1HEAD6, HEAD7) CHARACTER! 51 , 652 

1 HEAD 8(2), HEA09 12)1 CHARACT ER141) , 653 

HEAD 10 12) CHARACTER! 19), 654 

HEAD! 14 ) CHARACTER 142), 0655 

HEA0216) CHARACTER! 35); 0656 

DECLARE MODI PICTURE *SZ2*, 0657 

PRTMOD CHARACTER! 3) DEFINED MODI; 0658 

OPEN FILE! PUNCH) .FlLElLISTNGI, 0659 

HEAD1 ( l)*' CO ♦ Cl X » C2 Y *S 0660 
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HEA01 ( 21 ='C0 ♦ Ci X ♦, C2 V ♦ 
H£Al> 1(3» = , C0 » Cl X ♦. £2 Y ♦ 
HtAUl (41 =' CO t Cl X + C2 Y ♦ 
HE AD2( 1) =' 

HEmD2 ( 3 1 = * ♦ C7 SIN (XI ♦. C8 
Ht A02(4)=' ♦ C7 SIN (YI ♦ C8 

if siakt.c=i then du; 

HE AU2 ( 2 1=' ♦ C6 X*3 

HE A02 ( 5 1 =* + Cfe X*3 ♦ C7 SIN 

HEAU24 6)=' * Cti X*3 ♦ C7 SIN 

end; 

else uo; 

Hb A02 ( 2 ) = ' + C 6 Y*3 

HEAD2C5I-* ♦ Cfe Y*3 ♦ C7 SIN 
he AD2 ( fel =' + C6 Y*3 * C7 SIN 


C3 XY ♦ C4 X*2 ♦ C5 Y*2»; 
C7. SiNIXl ♦ Cti CQS4XJ *5 
C7 SIMYi * Cti COS ( Y 1 >i 


COS 

(XI 


♦; 

»; 

COS 

(Y) 


•; 

(XI 

♦ C8 

COS 

*; 

4X1*; 

( YJ 

* C8 

cos 

( Yi • ; 

(X) 

♦ C8 

cos 

• ; 

( xi • ; 

(Y) 

♦ C3 

cos 

(yi • ; 


fcNO» 

ritA06=*X 10** ; 

HEAD 7= *C 0 ♦ * ; 

HEAUti (1 )■= ' C9 ( EN/R *(-SlN Bl- (1-E2I/R * CUS 8) ♦ 

HEAD6( 2 ) = 'C 9 ( EN/R * tCOS B) ♦ (1-N2I/R * SIN 81+** 

HbAQ9( 1 )='C 10 U1-E2I/R * SIN 8 - EN/R * COS 8) •* 

HEAD9 ( 2 1 = ' C 10 (-EN/R * SIN B + .I1-N21/R * CQS 81 

HEAOlCll>a*+ CU DEL AO/OEL UT'J 
HEAUlC ( 2 l=* ♦ CU DEL BO/DEL OX* « 

AlPHAC(U='CC =•; 
alphac ( 2 1= *c i =♦ ; 

ALPHAC ( 3 1=' C2 =• > 

ALPHAC (4)='C3 *• J 
ALPHAC { 5 1= ' C 4 = ' i 
ALPhAC X6 )='C5 »• i 
ALPHAC ( 71= 'C6 = ' I 
ALPHAC (8 1 = *C 7 *' » 

ALPHAC 191= 'Cti *' 1 

SET 1 YP£( 1 1= ' A a •; 

SETTYP E( 2 ) =• 8 = •; 

/* PRINT EQUATIONS AND CO EF */ 


CO TU EQUATIONS} 

HEA0NG2 PROCEDURE* 

PUT FILE(LISTNG) EDIT X SETTYPE IKil .HEADl I KKl , HEAD2 t J J 1 1 
(X<5 )« A (41, A 1421* A(35) 1 i 

END} 

/♦ROUTINES FOR PRINTING EQUATIONS */ 


COMMON : PROCEDURE* 

PUT FILE (LISTNG1 SKIP} 

DO J=1 TO NUH; 
i=i+l; 

IF Kl=i THEN DO} 

CULOG=ABS(SAVEA( III; COEFFaSAVEAI 11* END; 

ELSE OQ;CULOGaABS(ACOU)»; COEFF-ACOCI); ENO; 
IF CULQG=0 THfcN GO TO PRINTCj 

/* FIND EXPONENT */ 

LOG l:EXP=LOGlQ( COLOG M 

IF CULOG >*1 THEN fcXPaEXP*-!! 

ELSE; 

COEFF=COEFF*iO** (-EXPI ; 

If U=1)|(J=8I J (Ja9> THEN NOOEXP-EXP+3J 
ELSE IF J=7 THEN M00EXP=EXP-6| 

ELSE IF I J*2l | ( J*3 ) THEN NODEXPaEXP; 

ELSE hudexp=exp-3; 

IF I <39 THEN DO| 


0661 

0662 

0664 

0665 

0666 

0667 

0668 
C669 

0670 

0671 

0672 

0673 

0674 

0675 

0676 
067 7 

0678 

0679 
0 680 
0681 
0682 

0683 

0684 

0685 

0686 

0687 

0688 

0689 

0690 

0691 

0692 

0693 

0694 

0695 
C696 

0697 

0698 

0699 

0700 
0 701 
0702 
0 703 
0704 
0 705 
0 706 
0 707 
0708 
0 70 9 
0710 
07U 

0712 

0713 

0714 

0715 

0716 

0717 

0718 

0719 

0720 
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MQD1=M00EXP; 0 721 

END} 1 722 

ELSE PRTMQO= • •; 0723 

PRINTCJ 0724 

PUT FILE (LI STNG) EDIT ( ALPHAC ( J ) ,CO£FF .HEADS ,EXP ,PRT MODI 0725 

tSKIP,X<10J,A<5J, F( IG,8J,X(21,A(51,F(21 , 0726 

X(5)»A(31); 0727 

IF 1=19 THEN J=7l 0728 

ELSE IF 1=27 THEN J=J+1; 0729 

ELSE IF 1=46 THEN J=J*2; 0730 

ELSE; 0731 

end; /,* COMMNB */ 0732 

PUT FILEILISTNGJ SKIPI2); 0733 

end; /* COMMON */ 0734 

EQUATIONS: 0735 

CALL PAGEHD * 0 736 

PUT FILEILISTNGJ EDIT I ‘EQUATION SET 1») 

ISKIP,X(2J,A>; 

PUT FILE! L ISTNG J SKIP; 

Kl=l; C737 

1=0; NUM=3J KK=1; JJ=l; CALL HEADNGi CALL COMMON; 0738 

1=0; Kl= 2 ; CALL HEAONG; CALL COMMON; 0739 

PUT FlLE(LlSTNG) EDIT (‘EQUATION SET 2' J 
( SKIP* X(2i » A.J ; 

PUT FILEILISTNGJ SKIP; 

■NUM=6 ; K 1= 1 * KK=2; CALL HEAONG; CALL COMMON; 0740 

1=3; Kl=2; CALL HEAONG; CALL COMMON; 0741 

PUT FILEILISTNGJ EDIT I ‘EQUATION SET 3*1 
( SKI P» XI2 1 » A) * 

PUT FILEILISTNGJ SKIP; 

NU M= 7 ; Kl=l; jj=2; CALL HEAONG; CALL COMMON; 074Z 

1=9; Kl=2; CALL HEADNG; CALL COMMON; 0743 

PUT FILEILISTNGJ EDIT (‘EQUATION SET 4'J 
<SKIP*X(2 J,AJ; 

PUT FILEILISTNGJ SKIP; 

NUM=9; Kl=I; KK=3; Jj=l; CALL HEAONG; CALL COMMON; 0744 

1=16; Kl=2; KK=4 ; CALL HEAONG; CALL COMMON; 0745 

PUT FILEILISTNGJ EDIT (‘EQUATION SET 5*1 
(SKIP*Xi2 J*A>; 

PUT FILEILISTNGJ SKI PJ 

Kl=l; KK=2 * JJ=3; CALL HEADNG; CALL COMMON; 0746 

1=21; Kl=2l JJ=4( CALL HEAONG* CALL COMMON; 0747 

PUT FILEILISTNGJ EDIT ('EQUATION SET 6‘ J 
(SKlP,X(2l*A); 

PUT fileihstngj skip; 

ki=i; ju=5; call heaung; call common; 0748 

Kl=2; 1=29; JJ=6 ; CALL HEAONG; CALL COMMON; 0749 

/* PRINT HEADINGS ANO COEFFICIENTS 0750 

FOR THE ADDITIONS */ 0751 

ALPHAC 12 J= 9 C9 = fl ; 0752 

AL PH AC ( 3 J = • C 10 =*; 0753 

ALPHACI4 J=‘C11 =•; 0754 

CALL PAGEHD; 0755 

PUT FILEILISTNGJ EDIT (‘EQUATION SET 7‘ ) 

(SKIP *X C 21 * A J » 

PUT FILE (Li S TNG I SKIP; 

CHEA07 i 0756 

NUM=4; Kl=l $ 1=38; 0757 

DO 11=1 TO 2; 0758 

PUT FILE (LISTNGI FOIT 0759 
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(S£TTYPE(K1),HEAD7, HEAQ8 (K1 ) , HEAD9IK 1 > .HEAD 1C(K 1) ) 
( X < 5 ) , At 4i ,A(5),A( 4l),X(l) ,A(41>,A(19>) i 

CALL COMMON 5 1*3 8; Kl=2'» 

end; 

PUT FILE (USING) EDIT (•EQUATION SET 8') 

(SKlP,X(2)tA)J 

PUT f I L£ (LISTNGJ SKIP; 


CHt ADb : 

NUM=3; KI=I; 1*42; 

DO 11*1 TO 2J 

PUT FILE (USING) EDIT 

(SETTYPEtKl l» HEAD7 , HE AD8CK1 ) , HEAD9( Kl ) I 
(X(5),A(4)»A(5) ,A(41),X(l),A(4l>) ; 

CALL common; 1=42; Kl=2; 
end; 

PUT FILE(LISTNG) EDIT ('EQUATION SET 9') 

(SKIP* X ( 2) .A); 

PUT FiLt(LISTNG) SKIP; 

NUM=4; Kl = l J 1=48; 

CHEA09 i 

HEAD 7= *C 0 •; 

DU 11= l TO 2i 

PUT FILE (L1STNG) EDIT 

(SE.TTYPE(K1)»HEAD7»HEAD1Q(KI)I 
(X15), A14), A(5)«A119))« 

CALL COMMON; 1=48; Kl=2; 

End; 

PUNCHO: 

/♦COEFFICIENT CAROS */ 


cardstai=start.$ta; 

CARDD1=START.CAL 18 D; 

SEINU*' A*J CARONO=0; 11=1; MATRIX (48)=0i 
DO 1 = 1 TO 47; MATRIX! I)=SAVEA(I) ; END; 


DO K=1 TO 2; 

PUT F ILE (PUNCH ) EDIT 

ICARDST A1.CARUD1, (MATRIX!!) 00 1 = 1 TO 3), SETNU) 
<F<4) ,X(2) ,F(6),X(18),3E(15,8,9),X(31, A(2)); 

11=4; 

I2=b; 

DO J=1 TO 9; 

C ARDNO=C ARDNO+l; 

PUT FILE (PUNCH) EDIT 

( (MATRIX! JU 00 Jl=Ii TO 12), CARDNO) 

(5E1 18,8,9), Ft 3) >; 

11=11+8; 12=12+5; 


END; 

caruno=o; SETNO='e*; 

IF K=i THEN oo 12=1 TO 47;MATftlXU2) = AC0( 12) ; END* 


END; 

CLOSE F ILE (LISTNft), FILE (PUNCH) * 


EMU; /* PR1NT1 */ 


/* END OF DATA 
// EXEC PL/1 
♦ PROCESS USTO,NOOPT 

PAGEHD: PROCEDURE; 

DECLARE 

LI S TNG FILE OUTPUT PRINT 
ENVIKQNNENT4ME0IUHCSYSLST, 14031 FI132U, 
1 START EXTERNAL, 

2 C F1XE0 OECIMAL ( Hi 


0760 
076 1 
0 762 
076 3 


0 764 

0765 

0766 

0767 

0768 

0769 

0770 

0771 


0772 

0773 

0774 

0775 

0776 

0777 

0778 

0779 

0780 
07tf L 

0782 

0783 

0784 

0785 

0786 

0787 

0788 

0 790 
0791 
0 792 
0 793 
0 794 
0795 

0797 

0798 

0799 
0&00 
0801 
0802 
0803 


1 

2 

3 

4 

5 

6 
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2 STA F IXED DECIMAL (4), 7 

12 KCA, 3 

2 KC3, 9 

2 FRED) DECIMAL FLOAT 17 ) » 

2 CALI IiL> FIXED DECIMAL* 6), 11 

2 P FIXED DEC IMAL !2 ) », 12 

2 BLANK CHAKACT ER( 1 ) * 13 

TODAY CHARACTERS), 14 

DATATYPE CH AR ACT ER I 10 ) , 

1 DAY DEFINED TODAY, 15 

<2 Y, 16 

2 M, 1 7 

2 D) character * 2) i 18 

tuoay^date; 20 

if start.c=i then datatype** polar •; 

ELSE DATAIYPE=*EQUATORIAL*J 
PUT F IL EILISTNG) PAGE EDIT 

(OATATYP£,*CALI BRAT I ON* » DAY * M, */ », OAY.D, */ *,OAY.Y) 22 

IX (5) »A( 10), X( 1),A(11),X(5) ,A(2) , A II ) ,AI 2) , A ( l ) , Al 2 ) ) ; 23 

PUT FILE (LISTNCi EDIT !* STA* , START .STA ,* KC A =*, 24 

KCA, * KC 8 =•» KfctJ, * FRED =*, FREQ, • MC *, 25 

•UATE OF CALIBRATION*, START. CALJ00) 26 

1SK1P12) ,X!10),A!3),X|l),FS),X!3)#A!6>,Fl6, 3),X!3), 27 

Al 6) , F ( 6 » 3 1 ,XI3) ,A161,F17,3) ,AI3) ,X(1) ,AI19),XI1),F(6)); 28 

PUT FILEILISTNG) SKIPI2); 29 

END; /* PAGEHO */ 31 

/* END OF DATA 

PHASE QRG 1 E 3 , DRO l E2 0805 

// EXEC PL/I 
* PROCESS LISTQ.NOOPT 

RES IDL: PROCEDURE l ACU, SAV EA.NPLOTS ) ; 0807 

DECLARE 0808 

LISTNG FILE OUTPUT PRINT 0809 

ENVIRONMENT 1MEOIUMI SYSLST, 1403) FI132)), 0810 

DISKI FILE INPUT RECORD C311 

ENV IKONMENT 4MEDIUMI SYS003 ,2314) F(3400,U6) ), 

DISK2 FILE OUTPUT RECORD C8I3 

ENV I RONM ENT i MEDIUM! SY S004, 2314) UI96) ), 

0ISK3 FILE INPUT RECORO 0815 

ENVIRONMENT I MEDIUM! SYS004,23l4) U!96) 

PLOTOK FILE OUTPUT RECORO 0817 

ENVIRONMENT 1 MEDIUM I SYS006, 2314) FI 1208) ), 

1 START EXTERNAL, 0819 

2 t FIXED DECIMAL! I ), 0820 

2 STA FIXED DEC I MALI 4) , 0821 

12 RCA, 0822 

2 KCS, 0823 

2 FREQ) OECIMAL FLOAT!?), 324 

2 CAL 1 80 FIXED DECIMALS), 0825 

2 P FIXED DECIMALS I, 0826 

2 BLANK CHARACTER! 1), 0327 

1 DATA, 328 

2 UT 13) DECIMAL FLOAT, 329 

2 BLANKS CHARACTERS) , 830 

!2 AC, 0831 

2 BC» 332 

2 AMI, 0833 

2 8M1, 0834 

2 BETA, 0835 

1 0836 
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2 DEL AC, 

2 DELBC, 

2 NAP, 

2 N3P) DECIMAL FLOAT! 16), 

2 STA CHARACTER l A) , 

2 PLATE CHARACTER* 3) » 

2 PLUT CODE CHARACTER!!), 

(2 RA, 

2 KB, 

2 AM, 

2 BM) DECIMAL FLOAT 116), 

1 DA, 

2 T8LNK CHARACTER14), 

2 SI CHARACTER! 4) , 

2 NAME CHARACTER 12), 

2 PL1 CHARACTER 13), 

2 BLNR CHARACTER! 3) »> 

2 Tl DECIMAL FL0ATI16), 

(2 Cl, 

2 C2, 

2 Mi, 

2 M2, 

2 Rl, 

2 R2 , 

2 R3(t>) ) DECIMAL FLOAT, 

1 PDATA, 

12 PLUTXUGC), 

2 PLUTYlllOG), 

2 PLOT Y2 1 IOC ) ) DECIMAL FLOAT 16), 

2 NPTS FIXED dl NARY 1 31)<» 

2 PLATE CHARACTER! 3) , 

2 PLOT CODE CHARACTERU); 

DECLARE /* VARIABLES */ 

NPLGT5130) FIXED BINARY! 31 ), 

ROUND FIXED DEC IMAL 15,4) , 

( PR A 1 9) » PKB l 9) , PRTRA, PRTRB) FLOAT 16), 

1AI(9), BI 1 9 ) , SA VE1 47 )» SAVE A( 47 ) , ACOl 47),RA(9),RB19), 
RESSUM120)) DECIMAL FLOAT 116) , 

ketknp label; 

DECLARE 

1DUMMY1, 

TIME, 

XA,X2A,XYA, 

YA, Y2A,Y3A * 

SINlp S1N2»CGSI»C0S2, 

ANCX , ANDY , 

EDATA ,b9u, B lOO, 

NDATA, 

ESQAR, 

NS JAR, 

ENK2 , 

ONEE2, 

CNEN2, 

COSB, 

SINB, 

A9Q,AIC0, 

PKCA, PKCBjPFREU, 

SUM) DECIMAL FLOAT! 16), 

1WHOL EX»WHULEY ) FIXED DEC IMAL (7 I, 

LAST_PLATE CHAR ACT ER13 ), 


0B37 
0838 
08 39 
0840 
GB41 
0842 
0 843 
844 
0845 
846 

0847 

0848 
1 848 

0849 
0350 
0851 

852 

353 

0854 

0355 

0856 

0357 

0358 
0859 
0660 
0861 
0 862 
0863 
0364 

865 

866 

867 

868 
0869 

870 

C875 

0876 

0877 

0878 

0879 
380 

0831 

0882 

0883 

884 

0886 

0887 

0838 

0389 

0890 

0891 

0892 

0893 

0894 
0 895 

895 

0896 

0897 

0898 
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TODAY CHARACTER! 6) » 0699 

1 DAY DEFINED TODAY, 0900 

2 Y CHARACTERS it 0901 

2 M CHARACTER,! 21, 090 2 

2 D CHARACTERS )» 0903 

DATATYPE CHAR ALTER! 10 ), 0904 

KETRNC LABEL,. 

RETKNH LABEL; 0905 

DECLARE (TRUNCKA, TRUNCR8) FIXED DECIMAL! 3); 0907 

/♦COMPUTE RESIDUALS */ 0908 

DK.T6LNK*' •; 

TUUAY=OATE; 0909 

IF START .C=l THEN DATATYPE** POLAR* » 0910 

ELSE DAT ATYPE* ' EQUATOKi AL * J 0911 

RK=l; 0912 

R E TR NH=0 A T AHDNG • 0914 

ROUND*. 0005; 0915 

TEN3=1C0U. 0, 916 

RETRNP= BEGIN 1; 00 TO PAGEHOi 0917 

BEGINS 0918 

NPL TCU0E*0 ; NPCT*0; Ctll*0| 0919 

SLNK=* •; UUMMY=0; N2=l; 0920 

OPEN FILE(OISK2I,FILE(D1SK1I,FILE{PLOTDKI,FILE(LISTNG> J 0921 

READ FILE(DISKl) 1 NTO! DATA) ; 0922 

NPLUTS=0; RESSUM*0; 923 

DO 1 = 1 TO 38; SAYEU) = SAVEAl 1)8 END; 0924 

ON ENDPAGE(LISTNG) GO TO PAGEHO; 0925 

ON ENDF1L E4 U1SK.1 ) GO TO OATAEND; 0926 

CALL READDJ GO TU DATARJ 0 92 7 

RE ADO: PROCEDURE; 0928 

READ FILE(QISK1 ) INTO ! DAT A) f 0929 

ON ENUF1LEIDISK1J GO TO OATAENO; 0930 

ENO; /* READD */ 0931 

CFSIPROCEGURE; 0932 

B1(1)=$AVEA( l)+XA*SAVEA(2)+YA*SAVEA(3)i 0933 

61 (2) = S,AVEA( 4 ) +XA*SAVEA! 5 )+YA*SAVfcA( 6 I +XA*YA*SAVEA( 7) 0934 

+X2A*SAVEA!8 I+Y2A+SAVEA! 9) J 0935 

81(3 )=SAVEA(10)*XA* SAVEA! 11 )+YA*SAV£A( 12T+XYA4SAVEA! 13) 0936 

♦X2A*S AVEA (14) *Y2A*SAVEA( 15 ) +Y3A*S AVEA ( 161 ; 0937 

S1(4)=SAYEA( 17)*XA*SAVEA! 18)+YA*SAVEAU9)+SIN1*SAVEA120) 0938 

♦CDS 1*SAYEA< 21); 0939 

aH5)*SAVEA!22) + XA*SAVeA(23)4YA*SAVEA(24)+XYA*SAV£A4 25> 0940 

+X2A*SAVEA<26 )9jY 2A*SAVEA( 27)+SINl*$AVEA<28)+ 0941 

C0S1*SAVEA!29)J 0942 

81(6)=SAVEA(30 )+XA*SAVEAl 3 1) +YA*SAVEA( 32 )+XYA*SAVEA(33)+ 0943 

X2 A*SAVEA( 34)*Y2A*$A.VEA( 35 )♦ Y3A*SA YEA! 36)* 0944 

51 Nl* SAVE A (37 ) +C0S1*SAVEA( 38 I S 0945 

END; /* COMPUTE_CFS ♦/ 0946 

QATAR J 0947 

XA=DATA.AM-START.XCAJ 0950 

Y A=D AT A. tiM-START «KC8 » 0951 

MHOLEX*TRONC(XA)S 0952 

MH0LEY=TRUNC1YA) S 0953 

XYA*XA#YA; 0954 

X2A=XA*XA; 0955 

Y2A=YA^YA; 0956 

IF START. C*1 Then Y3A=X2A*XA; 

ELSE Y3A*Y2A*VAS 957 

ANGX* ! XA- WHOLE X) *6. 2831854 ; 0958 

ANGY* ( YA-NHOLEY ) #6.2631854; 0959 
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SlNl=SiN(ANGX>; 

S1N2=SIN1ANGY ) i 
COS 1=C0S ( ANGX 1 5 
CQS2=C0S (ANGY ) » 
tj£TA=l .5707963—BETA; 

CQSB=COS (BETA) ; 

SlNb=SlN(BE TA) i 

ED AT A 3 DATA. AC/OATA .NAP; 

NL)AT A=DATA. BC/ DAT A • NBP ; 

ESQAR=EOATA#tDATA; 

nsuak=ndata*ndata; 

ENR2=( £DATA*NDATA) /0ATA.R2 i 
UNE N2= ( l -NSQAK) / DAT A.R2; 

QNEE2= ( 1 -£S CAR)/DAT A.R2 • 

DO 1 = 1 TO 38; SAVEA< I)=SAVE{ I )i END J 
CALL CFS; 

DO 1 = 1 TO 6, Aim=BllI); END i 
A 9Q= (ENR2*(-SINB)-(0NEE2*C OSB ))J 
A10Q=( (0N££2*SIN6)-(£NR2*C0S6) ) i 
Ai ( 71= SAVEA4 391* SAVE A( 40 )*A9U+SAVE AI41 ) * AlOQ 
+SAVEA(42) *OfcLAO ; 

A1 (ej=SAVEA(43)*SAVEA(44l*A9a+SAVEA(45)*A10Q; 

A 1 ( 9)=8A VE A ( 46 )+ SAVEA( 47) *OELAQ; 

89U= <(fcNK2*CQSBI*(QNEN2*SINBn; 
b 1GU=(-ENR2*SLN8) *(GNEN2 I *C0S6 ) i 
D1(7)=AC0( 39>*ACtM40)*B9Q+ACO(41)*BlCQ*ACG(42)*DELB0; 
B1 (B ) = AC(J(43 ) *ACO (44>*b9Q+ACG( 45 ) *6100 ; 

31(9) =ACO( 461+ACC147 )*D£LBO ; 

SI Ni=SIN2 • COS 1=CUS2» 

DO 1=1 TO 38; SAVEAt I )=ACO 11); END; 

CAUL CPS; 

cai=coi*i; 

OAT A.R A=OATA. AC+ST ART «KC A— DAT A. AM » 

DA TA .R6=DA T A .BC* START. KCB-DATA. 8 MJ 
DO 1 = 1 TO 6; 

KA( 1 ) =OAT A.AC-A1C II) 

KB( l)=OATA.BC-Bl(I)i 

END; 

DO 1 = 7 TO 9} RAU)*DATA.RA-A1CI> ;RB( I >=DAT A.RB-Bi ( I ) i 
END; 

DO 1=1 TO 9; 

PR A( 1 ) =R A ( 1 )*TEN3} 

PK8 ( 1 >=RB( I )*T£N3» 

END; 

PR TRA=DA TA . R A* T£N3 i 
PRTRB=QATA.RB*TE«3; 

IF START. P=0 THEN 01); 

PLOTRA = (DATA.RA*ROUND*SIGNlDATA.RA) )*TEN3; 

PLOT RB = (DAT A.ftB+RGOND*S I6NI DATA .RB) )*TEN3; 

TRUNCR A=TRUNC ( PLOTRA) ; 

TRUNCRB=TRUNC(PL0TR8) i 
NPLOTS ( K*.) = NPLQT S(KK 1*1 » 

PDATA. PLCTY1 (N2) =TRUNCRAJ 
PDATA.PLOTY2(N2)=TRUNCRB; 

IF DATA. PLOTCOOE=* 1* THEN PDATA. PL0TX(N2) =DATA. AC J 
ELSE PDATA. PL0TX(N2) *QAT A .BC. 

N2=N2+1 • END; ELSE; 

J=l; 

DO 1=2 TO 6 BY 2; 

R3 (I-11=PRA(6+JU R3(l )=PRB(6+JH J=J*1» END; 


0960 

0961 

0962 

0963 
1 963 

0964 

0965 

0966 
096 7 

0968 

0969 

0970 

0971 

0972 

0973 

0974 

0975 

0976 

0977 

0978 

0979 

0980 

0981 

0982 

0983 

0984 

0985 

0986 

0987 

0988 

0989 

0990 
A 990 
B 990 

0991 

0992 
099 3 

0999 

0995 

0996 

0997 

998 

999 

1000 
1001 
1002 

1004 

1 1004 

2 1004 

3 1004 

4 1004 

1005 

1006 

1007 

1008 

1009 

1010 
1011 
1012 
1013 
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RESSUMl 1 ) =RESSUMll)+DATA.RA*DATA.RA; /*SUH RESIDUAL */ LOLA 

RESSUMI2) *R£SSUH(2 )+DATA.RB*QATA«R8. /*SQUARES CRMS!*/ 1015 

J=3; 1016 

DO 1*1 TO 9; 1017 

KESSUM( J)=RESSUM(J)*RA( I )*RA( II; 1018 

RESSUMtJ+il»RESSOmj+l) + RBCl)*RBilli 1019 

J=J+2; END; 1020 

POAT A.PLOTCOOE=DATA.PLOTCGOE» 1021 

LAST_PLATE=OATA. PLATE; 1022 

RETRNP*DATALIST; 1023 

DATALIST: 1024 

DATA.STA** *; 

IF N2=i l N2»2 THEN DO; 1025 

DK.PLl=OATA. PLATE; 1026 

DK .NAMh=*PL* ; 1027 

OK. Si *DATA.STA; 1028 

PUT F 1 L£{ LISTNG) EDIT 1029 

(DATA . STAt » PL •» DATA. PLATE! 

(SK1P,A(4),A12), A(3) IT 

IF START. P=1 THEN N2*3; END; 1032 

ELSE do; 1033 

pl 1= * •; Si** *; name* * •; end; 1034 

TIME* DATA.Uml*IOOOO+DATA.UT(2l*100+ DATA.UT(3>; 1035 

ri=TiME; 1042 

dk.ri*prtra; 1043 

DK .R2=PK IRB J 1044 

DK .Cl =0 AT A. AC ; 1045 

DK.C2 *DATA.BC « 1046 

DK .Ml =OATA.AM; 1047 

DK .M2 =DATA.BM| 1048 

RETRNP=PRINT1; 1049 

PRINT 1: 1050 

PUT FILE(LiSTNG) EDIT 1051 

(TIME, DATA. AC.DATA.BC .DATA .AM.OATA.BN, PRTRA. 1052 

PRTRB, IPRAl I ).PRB( 1 1 00 1*1 TO 6)1 1053 

( SKI P, X( 10) » F(12*1)»4F(9»3) »,14F4 5 1 ) ; 1054 

HRITE FILEIDISK2J FRUH(OK) ; 1055 

CHECKPL! 1056 

CALL READD; 1057 

IF DAT A. PLAT E*LAST_PLATE THEN GO TO DATAR; 1058 

ELSE DQ;RETRNC*OATAR;GO TO PLOTCK;ENO; 1059 

PAGEHOt 1060 

PUT F ILE( L I STNGl PAGE EDIT 1061 

1 DATATYPE t ' CALI BRAT ION* .DAY .H, •/* » DAY .0.* / ' .DAY .Y ) 1062 

4 XI 101. A( 10), XU) .AU1)»X(5).A(2)*A(1),A(2> ,A(1I , 1063 

A( 2) ) ; 1064 

PUT FILEIL1STNG) EDIT 1065 

(*STA*» START. ST A. * KG A **,KCA,*KC B =*.KC8,*FREQ =*. 1065 

FREti, *MC ’.'DATE OF CALIBRATION* , ST ART .CAL I SO) 1066 

(SKIP) 2) ,X( 10)»A(31 »XU> »F 14) «X I 3) ,A( 6 ) „F (6, 3 I , X (3 ). 1067 

A(6l r F(6» 3) ,X(3) , At 6) , F ( 7, 3) , Al 3) , X( 3) . A( 19) , X( 1) ,F ( 6) >; 

PUT FILE(USTNG) SKIP; 1069 

GO TO RETRNH; 1070 

OATAHDNGJ 1071 

PUT FI LE( LI STNGl EOIT 1072 

(»UT AC BC AM BM RA* . 1073 

•RB RA1 RBI RA2 RB2 RA3 RB3 RA4 R84», 1074 

• RA5 RB5 RA6 RB6* ) 1075 

(SKIP.XI 20).AI43I.X(3).A(43) »X(3> *A( 16H ; 1076 

PUT FILE (LISTNG) SKIP; 1077 
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Gu TO kETRNP; 

0ATAH0NG2: PUT FILE(LISTNG) EOIT 

t'UT AC BC AM BM‘ t 

•KA RB RA7 R87 KA8 RB8 RA9 RB9' > 

<SKlP,X(33J ,A(40I,X(7>,A(37)) i 

put pile (listngi skip; 

GU TO KETRNP; 

PLUTCKi 

IF START. P=0 THEN DO! 

poata.plate=last..plaie; 
write fileiplotok) frumipdata); 

KK=KK+1; N2=15 END; ELSE* 

N2= li 

GU TO RETRNC* 

UATAENO: 

DO 1=1 TO 20; RES SUM ( I )=( SQRT(RESSUH( 1)/CG1));END; 

CLOSE F1LEIDISK2); 

IF START. P=0 THEN DO; RETRNC® LASTLINE; GO TO PLOTCKiENO; 
LASTLINE: 

PUT FILE1LISTNG) page edit 

('NO. RMS RMS RMS RMS RMS * » 

'RMS RMS RMS RMS RMS RMS • » 

•RMS RMS RMS') 

(SKIP(2)*A(45)*X(B) » A ( 43) *X(5)*A(19) > » 

PUT FILE (LI STNG) EDIT 

I'PTS RA RB RAl RBI RA2*» 

* RB2 RA3 RB3 KA4 KB4 RA5', 

•RB5 RA6 RB6 * ) 

( SKIP,A{45) ,X(5),A(43),X(5)*A>; 

PUT FiLE(LlSTNG) EDIT 

(COL, (RESSUM(I) DU 1=1 TO 141) 
(SKiP»Fi5),X(2>*14F(8»6i ) i 
OPEN FILE(DISK3) * 

RETRNH=DATAHDNG2| 

retrnp=secondlist; 

GU TO PAGEHO; 

SECGnUL 1ST: 

READ F 1LE (D I SK3) INTO (DO; 

KETKNP=PK.l NT2» 

PRINT2: 

PUT F ILE(L ISTNG ) EDIT (OKI 

(SKIP,X(6J , A<4) * A (4.) ,A(2 ) ,AI4), AI4I *F (12, li » 

4F ( 10* 3I»BF< 5) 1; 

CN ENOFILE (0ISK3 I GO TO ENORT; 

GO TO SECUNULISTJ 
ENORT: 

ON E NO PAGE (L ISTNG) * 

PUT FILE(LISTNG) EOIT 

I'NU. RMS RMS RMS RMS RMS'* 

■RMS' I ( SKIP (2 1 »X( 30 1* A(48 1 * X(6 1 t.A(31 1 » 

PUT F I LE ( Ll STNu ) EDIT 

( ' PTS RA7 RB7 RA8 RB8 RA9« , 

•KB9* J ( SKIP,X(30) * A(48) ,X(6)»A(3U; 

PUT FILE( LISTNG) EOIT (CQW(RESSUM( I ) 00 1*15 TO 2011 
(SKI P,X(28) ,F(5),6FI9»6) ); 

CLUSE FI LEI 01 SKI i* FILEI0ISK3I .FILE! PLOTDKl ; 

CLOSE FILE(LISTNG); 

END; /* RESIOL */ 

/* END OF DATA 
PHASE OR01E4,DR01E3 


1078 

1079 

1080 
1081 
1082 

1083 

1084 

1085 

1086 

1087 

1088 

1089 

1090 

1091 

1092 

1093 

1094 

1095 

1096 

1097 

1098 

1099 

1100 
1101 
1102 

1103 

1104 

1105 

1106 

1107 

1108 

1109 

1110 
1111 
1112 

1113 

1114 

1115 

1116 

1117 

1118 

1119 

1120 
1121 
1122 
1123 


1127 

1128 

1131 


1133 

1134 

1135 


1137 
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// EXEC PL/ I 
* PROCESS LlSTG,NOUPT 
DRZPLT :PRGCEDUR£!NPLOTS > l 
DECLARE /* ORXOIE PLOTS 

LISTNG FILE OUTPUT PRINT 

ENVIRONMENT I HEOIUN4SYSLST. 140 3) 
PLOTDK FILE INPUT RECORD 

ENVIRONMENT !MEQ1UHI$YS006»2314) 


I START EXTERNAL, 

2 C FIXED DECIMAL! 1 )* 

2 STA FIXED DECIMAL14I, 

<2 KCA t 
2 KCB, 

2 FREQ I DECIMAL FLOAT (7). 

2 CAL I BO FIXED 0EC1MALI 61 t 
2 P FIXED DECIMAL (2)* 

2 BLANK CHARACTER! I 1, 


*/ 

Ft 132) I* 

Ft 1208) )» 


1 DATA* 

(2 PLOTXtlOOl, 

2 PL0TY1I 100) » 

2 PL0TY2) 100)> DECIMAL FLOAT! 6) • 

2 PTS FIXED BINARY I 31 ) * 

2 PLATE CHARACTER !3), 

2 PLOTCODE CHARACTER! 11? 

DECLARE 

BUFFER! 1000) FLOAT , 

(NPLDTS(30),NPTS) FIXfiD BINARY 131), 

FPL CHARACTER 131* 

GRI0SYM13) CHARACTER! 2) , 

I Y ISC! 5) , 

-Y1S2!5), 

X1SCC 13) I* 

( ALENt CAL I BD) FLOAT, 

4 N , N1 2 , NB OF , NC , SY SI 3 , N1 , N2 ,N3 »N 13 , N22 , N23 , 
N99) FIXEO BINARY (31), 

(YSCALE,XSCALE) CHARACTER!!), 

PA CHARACTER !5)i 
BEGINPRQC: 

OPEN FILE! PLQTDKJ ; 

KK=0 i 

GRID SYM(2 ) = • RA* , 

GRIOSYM! 3)*»RB»i 
XISC (1 )=-5 ; 

X ISC! 2) =-4; 

XISC! 3)=-3; 

X 1SCI 4)=-2; 

X ISC ! 5) — -1 j 
XISC! 6> = 0; 

X1SC47) »l» 

XISC! 8)~2i 
X ISC! 9) =3, 

XISC 4101=4;* 

XISC! il)=5; 

Y1SC U)*-30J 
YlSC!2)=-20; 

Y1SC13)=- 10; 

Y1S2 < I )=10 ; 

Y1S2I 2)=20; 

YIS2 m=30{ 

YSCALE** •; 


1139 

1140 

1141 

1142 

1143 

1145 

1146 

1147 

1148 

1149 

1150 

1151 

1152 

1153 

1154 

1155 

1156 

1157 

1158 

1159 

1160 
1161 
1162 

1163 

1164 

1165 

1166 

1167 

1168 
1166 

1167 

1168 

1169 

1170 

1171 
1185 
1136 

1187 

1188 

1189 

1190 

1191 

1192 

119 3 

1194 

1195 

1196 

1197 

1198 

1199 

1200 
1201 
1202 

1203 
1 

1204 

120 5 
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XSCALE** * i 


1206 

Nl=l; 


1207 

N2=2; 


1208 

N3=3; 


1209 

N23=23 ; 


1210 

N22=2 2} 


1211 

N1 3= 13 ; 


1212 

N12-12* 


1213 

NBUF^ICOG; 


1214 

SYS 1 3= 13 ; 


1215 

CALL PLOTS 1 BUFF£R»NuUF» SYS1J ) » 

1216 

PACT *0.5} 


1217 


/* OPERATOR ORIGIN*/ 

1218 

F ST A= ST ART • FREQ? 


1219 

PA= ’PLAT fc * i 


1220 

CALI BD*ST ART *CAL IBO; 


1221 

XOFK*-5.0» 


1222 

X FCTR= l ; 


1223 

YOFF=-3C5 


1224 

YFCTR* 10i 


1225 

CALL OFFSET (XOFF ,X FCTR * YOF F , YFCTRI 5 

1226 

BbGiNJ^LOT: 


1227 

XP^O ; 


1228 

YP-0 « 


1229 

CALL PLOT <XP,Yp # N23U 


1230 

«• 

ii 

* 


1231 

npts=nplots<kk) ; 


1232 

READ FILEIPLOTDKI INTO (DAT A) ; 

1233 

ON £NL»FlLt(PLOTDK> 00 TO 

PLOTEXI IS 

1234 

IF DAT A. PLOTCUDE= ■ 1 • THEN 

1235 

GRIDS YM( 1 ) 

=• ac*; 

1236 

ELSE 

GRIUSYMI I)='BC* ; 

1237 

FPL*DATA. PLATE; 


1238 


/* FIRST PLOT GRIDS */ 

1239 

xp*o; 


1240 

YP=3J 


1241 

CALL PLOT ( XP »YP »N3 > ; 


1242 

xp=io; 


1243 

CALL PLQT(XP,YP»AI2 ) ; 


1244 

yp=o; 


1245 

xp=5; 


1246 

CALL PLOT (XP,YP,N3) ; 


1247 

YP-6; 


1248 

CALL PLQT(XP,YP»N2) ; 


1249 


/* XAXIS */ 

1250 

kp=i; 


1251 

ALtN=10; 


1252 

nc=ii; 


1253 

CALL SCALE! X1SC» ALEN.NC.KP > ; 

1254 

xp=o; 


1255 

YP= 3 » 


1256 

CALL PLOT ( XP. YP^N3) ; 


1257 

NC=-l ; 


1258 

A0FF*X1SC( 121; 


1259 

AFCTK=XISC( 131; 


1260 

ang=0; 


1261 

CALL AXIS 1 XP,YP,X SCALE, NC »AL£N, ANG, AGFF , AFCTR) S 

1262 

XP=5.l; 


1263 

yp=o,0; 


1264 

CALL PLOT <XP,YP,N3J; 


1265 
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HT=.U 1266 

^2; 1267 

CALL SYMBOL I XP, YP,HT, GRI DSYH 13) » ANG» N ); 1268 

/* YAXI S */ 1269 

X P= 5 # 0 1 1270 

YP=0.0; 1271 

CALL PLUTI XP» VP»N3) > 1272 

ALEN=2; 1273 

NC=3T 1274- 

CALL SCALE! Y1SC«ALEN*NC.KPI i 1275 

NC=l; 1276 

AN (a— 9.0 S 1277 

AGf F-Y ISC (4l * 1278 

AFCTR=Y1SCI5»; 1279 

CALL AXI S!XP,YP»YSCALE,NC»AL£N»ANG# AOFF, AFCTRl } 1280 

YP=4J 1281 

CALL PLOT tXP,YP,N3)J 1282 

NC=3i 1283 

CALL SCALE(Y1S2,ALEN,NC»KP »i 1284 

NC=U 1285 

A0FF=YlS2l4) ; 1286 

AFCTR=Y1S2<5); 1287 

CALL AX1 S(XP,YP,YSCALE,NC»AL6N, ANG, AOFF, AFCTRl J 1288 

YP=2.8J 1289 

XP=9.5; 1290 

CALL PLOT (XP,YP,N3); 1291 

N=2i 1292 

ANG=0; 1293 

CALL SYMBOL! XP. YP, HT,.GRI OS Y.M 1 1 1 ,ANG» Mi 1294 

/* FIRST PLUT ORIGIN */ 1295 

*P=C; 1296 

YP=3; 1297 

CALL PLOT iXP,YP,N3)t 1298 

1=1; 1299 

CHECKl: 21300 

IF A8S 4PLOTY2! 1)1 >30 THEN Q<3; 1301 

i=i+i; if i >npts then go to error; 41302 

ELSE GO TO CHECKl; END; 51303 

CALL PLOT ( PLOT XI i ) * PL0TY2I i I »N13 ) ; 1304 

J*-I + 1; 71305 

00 I=J TO NPTS; 81306 

IF ABS ( PL0TY2 11)1 > 30 THEN GO TO PE NU P2 I 1307 

ELSE DO; 1308 

CALL PLOTIPLOTXm,PLOTY21II,N12>; 1309 

GO TO EXIT2; 1310 

END; 1311 

PENUP2: 1312 

i=i*i; 1313 

IF I > NPTS THEN GO TO SECOND; ELSE 1314 

IF ABS (PLGTY21 III >30 THEN GQ Tu PEN0P2 ; 1315 

CALL PL0T(PL0TXU),PL0TY2II1 *N13); 1316 

EXIT2: 1317 

END; 1318 

/* 2ND PLOT GRIO */ 1319 

SECOND: 1320 

Xp=c; 1321 

Yp=10; 1322 

CALL PL0T(XP r YP,N3I ; 1323 

XP=10; 1324 

CALL PLOT! XP »YP» N2 1325 
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KP=5J 1326 
YP = 7i 1327 
CALL PL0T(XP,YP,N3) J 1328 
YP= 13; 1329 
CALL PLOT (XP,YP,N2I * 1330 

/* DRAW GRIOS */ 1331 
XP=0 ; 1332 
YP=IC; 1333 
CALL PLOT UP,YP,N3>5 1334 

/* SCALE AXIS */ 1 335 
ANb=Oj 1336 
AGFF = XiSCCl2> ; 1337 
APCTR=X1SC< 13>; 1338 
ALEN=10; 1339 
NC=-1; 1 3*0 
Kp=i; 1341 
CALL AXIS!XP,YP,XSCALE,NCtALEN.ANG,AQFF,AFCTR)S 1342 
xp=9.5; 1343 
YP=9.8; 1344 
CALL PLOT (XP*YPtN3); 1345 
CALL SYM8UL(XP,YP,HT»GRI0SYMU),ANG»NJ S 1346 

/* YAXI S SCALE */ 1347 
XP=5.0; 1348 
YP=7; 1349 
CALL PLOT CXP, YP»N3) » 1350 
ANG=90; 1351 
AOFF=Y 1SC14I • 1352 
AFCTR=Y1SC(5)J 1353 
ALEN=2; 1354 
NC=lS 1355 
CALL AXIS t XP» YP * Y SCALE ,NC ,AL£N» ANG, AOFF » AFCTR) » 1356 
A0FF=Y1S2(4>; 1357 
AFCTR=Y1S2(5» ; 1358 
YP=11; 1359 
CALL PLOT I XP ,YP»N3> * 1360 
CALL AXIS ( XP#YPtYSCALE,NC*ALEN» ANG, AOFF »AFCTR1 » 1361 
XP=5 * 1 ; 1362 
YP=7J 1363 
CALL PLOT (XP*YPtN3)i 1364 
ANG=0; 1365 
N=2; 1366 
CALL SYMBOL ( XP » YP»HT »GRIDS YMI2) , ANG, N1 * 1367 

/* IDENTIFICATION, PLATE BOX */ 1368 
N=5{ 1369 
HT=0.2; 1370 
AN 0=0 ; 1371 
XP=Q.5i 1372 
YP=13.5; „ 1373 
CALL PLOT IXP,YP,N3H 1374 
CALL SYMBOL! XP,YP,HT,PA,ANG#NH 1375 
N*-1J 1376 
XP=2.0{ 1377 
CALL PL0T1XP,YP,N3) i 1378 
N=3; 1379 
CALL SYM60L(XP,YP,HT,FPL,ANG,N1; 1380 
XP=3*0 » 1381 
CALL PLOT 1XP,YP,N3»; 1382 
N=»3 ; 1383 
CALL NUM8ER(XP*YP, HT»F$TA, ANGfN) * 1384 
XP=i,0; 1385 
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Y P= 1 3 . C ; 1386 

CALL PL0TIXP.YP.N3I; 1387 

N=-i; 1388 

GALL NUMbERtXP »YP , HT.CAL 180, ANG. N) ; 1389 

YP-13.3J 1390 

XP= 5.5; 1391 

CALL PLOT txP »YP »N3) ; 1392 

XP=7 .1 ; 1393 

CALL PLOT (XP.YP.N2I « 1394 

YP=14*5» 1395 

CALL PL0T(XP*YP»N2) J 1396 

XP*5.5; 1397 

CALL PLOT (XP.YP.N2). 1398 

YP=13.3; 1399 

CALL PLUTUP.YP, N2); 1400 

/* 2ND PLOT ORIGIN */ 1401 

XP=0; 140 2 

YP=7; 1403 

CALL PLOT UP.YP.N23); 1404 

1*15 11405 

CHECK 2 J 1406 

IP ABStPLOTYl [IH >30 THEN OG; 31407 

i=i+i; ip i >npt$ then go to error; 1408 

ELSE GO TO CHECK2; END; 1409 

CALL PLOT IPLOTXIII f PLOTYim,N13l J 61410 

4*1+15 1411 

00 I=J TO NPTS; 1*12 

IP ABStPLOTYltlU > 30 THEN GO TO PEnUP; 1413 

ELSE DO; 1414 

CALL PLOT tPLGTxm.PLOTYll 1) »N12J ; 1415 

GO TO EXITl; 1416 

END; 1417 

PENUP: 1418 

i=i+i; 1419 

IF 1 > NPTS THEN GO TO FINISH; ELSE 1420 

IF AbSIPLQTYHUl >30 THEN GO TO PENUP; 1421 

CALL PLOT IPL0TXU1 ,PL0TY1UJ,N13 I; 1422 

EXITl: 1423 

end; 1424 

FINISH: 1425 

YP=10; 1426 

xp=o ; 1427 

CALL PLOTtXP, YP» -N23J ; 1428 

GO TO BEbIN_PLOT; 1429 

ERROR: 1430 

PUT FILE1L1STNG) EDIT (*INVAL10 DATA PLATE* . DATA. PLATEI 1431 

(SKIPI2) ,A( 18 ) »X(2).,A(3) ); 1432 

GO TO FINISH; 1433 

PLOTEXIT: 1434 

N99=99 ; 1435 

YP=0; 1436 

XP=0; 1437 

CALL PLOT (XP.YP.N99i; 1438 

CLOSE FILEIPLOTUK); 1439 

ENDS /* DRZPLT */ 1440 

/* END uF DATA 

/L END OF JOb 

/✓ PAUSE SEND LARCS TO ALL1E, LIST TO RAY CHAVES 
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PRECEDING PAGE BLANK NOT FILMED 


Appendix D 

QUADRATIC LISTING 


The following pages display a listing of the computer preprocessing program used in 
the Minitrack system at the beginning of this effort. Functionally, it differs but little from 
the cubic preprocessing program now in operation. The quadratic program is presented for 
historical reasons and to assist in the analysis of the flow diagram shown in appendix E. We 
did not redraw the complete flow diagram for the present cubic preprocessing program be- 
cause of excessive cost and the fact that only slight, insignificant changes would occur. 
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//G4DJCMIN JOB ( G40042 3 1 1 F , P , G00043 ,030 L 00 ) , NCS , MSGL E VEL = 1 
// EXEC FORTRAN, PARM=‘0PT = 2, MAP, BCD, DECK, LOAD, L 1ST 1 
//SOURCE. SYSL IN OD DI SP= ! NEW, PASS ) 

//SOURCE. SYSIN DD * 

INTEGER S IGL, SIG2,SIG3, $ I G4 , S I GS, HOUR, A M I N , S ECN , BOUR , 6 SEC, l NO, ISO 
INTEGER AMP, END, CSTA, CANT, SIG, ANTD ,HORD ,M IND»SECD,SAT .DATE ,KF A ,KF B 
INTEGER I GRADE 

REAL NSFD,NSCD,NSMD,PID,1 FIT 
RE AL*8 STATIO 

REAL IDIF1, IDIF2, IDIF3.I0IF4, IDIF5 

REAL NSM,NSC,NSFPO,NSFEO, IDIF, NSF 1 , NS F2 , NSF3 , NSF4,NSF5 

DIMENSION ST AT 10 1 12 I ,KFA ( 12 > ,KFB ( 12 I , EWM ( 12 ) ,CLEWM< 12 I , EWC 112 ) , CLE 
LWC ( 1 2 I , EWFEG ( 12) ,NSM( 12 ) ,CLNSM( 12 ) ,NSC ( 12) ,CLNSC< 12 ) ,NSFEQ! 12) ,NSF 
2P0t 12) , ISTA148) , I ANTI 48) ,C1 ( 48 ) ,C2 ( 48 ) ,C3 ( 48 ) »C4<48 ) »C5t48 > ,C6!48 ) 
3.C7I48) ,C8<48> ,KSAID(50) ,FREQ(50> ,KSTA< 12 ) ,EWFPO( 12) »TIMI 31) 
DIMENSION SECD! 31 ) , E HMD ( 3 1 ) , E WCD t 3 1 ) ,EWFD( 31 ) ,NSMD< 31 I ,NSCDI 31 ) ,NS 
1FD(31 ) , MIND I 31 ) , HORD! 31 ) , DA YD < 3 1 ) , AN TO ( 31 ) , ST AD I 31 ) , S IGD< 31 I , EEWF 
2(31) ,ENSF( 31) , IDAYDt 31 )♦ ASTI 31 ) .DATE! 12 ) , CO ( 4B) 

DIMENSION AST A I 3) , ARM0DAI7) ,A0UR<7 1 , I AL OBE ( 6 ) , I AR ATE I 5 ) , l A ACCI 4 ) , I 
XAWMERI 3) , IAWCERI 3) , I BLOB E ( 6 ) , I BR ATE ( 5 ) , IB ACC (4) , I BNMERI 3), IBNCERI 3 
X) , ICIGAI3), I OUR ( 5 ) , I SEC t 6 ) , LCOS ( 8 ) , MCOS ( 8 > , I EN0I3) , INN0I3) 
DIMENSION DATA! 100 ) 

DIMENSION SLE < 4 ) , SLNI 4 ) 

EQUIVALENCE ISLE.IEOVER) 

EQUIVALENCE ( SLN, INOVER) 

L0GICAL*1 SLE, SLN 

L0GICAL#1 ASTA, ARMODA.AOUR, IALOBE, IARATE, I AACC, I AWMER, I AWCER , I BLOB 
XE, IBRATE, 1BACC, IBNMER, IBNCER, ICIGA, I OUR, I SEC , LCOS , MCO S, ! ENO, INNO 
LOG I CAL * 1 DATA, PEZ, BIN, SPX, IAMP 

DATA PER, ASK, SPA, POL, EQ»F1,F2,F3»F4,F5»F6,F7, IAMP, SLA, PEZ, BIN.SPX/ 
I24B404040,Z5C404040, Z 4040 40 40 ,ZD7 404040, ZC 54 04040, ZC 1404040, ZC2404 
2040, ZC3404040 , ZC4404040 , ZC 5404040 , ZC6404040, ZC7404040 , Z 50, Z6 140404 
30.Z4B, ZFO, Z40/ 

DATA A1,A2,A3, A4,A5,A6,A7,A8,AS/ZF1404040,ZF2404040,ZF3404040,ZF44 
X04040, ZF5404040, ZF 6404040, ZF7404040, ZF8404040, ZF9404040/ 

READ! 5,760) IGRADE 
760 FORMAT IPX, ID 
JL = 0 
JM=0 

WRITE! 6, 760 ) IGRADE 
DO 35 J=l,10 

C INPUT STATTON CONSTANTS 

READ! 5,80) STATIO(J),KSTA(J),KFA(J),KFB(J),EWMlJ) ,CLEWM< J ) , EWC ( J ) 
l.CLEWCI J) »EWFEQ( J ) , EWFPOI J ) , NSM ( J ) ,CLNSM t J ) ,NSC I J ) ,CLNSC (J ) , NSFEO I 
2J ),NSFPGI J),DATE( J) 

WRITE! 6,5 80) STATIO! J) ,KSTA(J),KFA!J) ,KFB< J) , EWM ( J ) »CLEWM ( J ) , EWC ( J ) 
l.CLEWC! J), EWFEG! J ) , EWFPO ( J ) , NSM ( J ) .CLNSM ( J),NSC!J) , CLNSC ( J ) , NSFEQ ! 
2JJ.NSFP0! J) .DATE! J) 

80 FORMAT ( A6,X, 12 , 14, 1 4, 3X, F4, 3, F 3, 3 , F4. 3 , F3. 3 , X »F4. 3 , F 4, 3, 3X , F4,3,F3 
X.3,F4.3,F3.3,X,F4.3,F4.3,5X,I6> 

5 80 FORMAT! X, A6,X, 12, X, I 3 , X , 1 3 , 3X , F4. 3 , F4. 3 , F4 . 3,F4. 3 , X , F4. 3, F4. 3, 
X3X,F4.3,F4.3,F4.3,F4.3,X,F4.3,F4.3,2X, 16) 

DO 36 1 , 4 

JL= JM+M 

C INPUT STATION COEFF. 

READ! 5,81) IANT!JL),ISTA(JL),C0!JL),C1(JL),C2<JL),C31JL),C4(JL) 
WRITE (6, 811)1 ANT! JL ) , I STA ( JL ) ,C0! JL ) ,C1 ( JL ) ,C2( JL),C3< JL),C4!JL) 
811 F0RMAT!4X,A1,X, I2,5<X,E15.8)) 

READ (5, 581) C 5 ( JL ) , C6 < JL ) , C 7 < JL ) , C 8 ( JL ) 

581 FORMAT! 8X,4!X,E12. 8) ) 

WRITE! 6, 681 )C5( JL ) ,C6 1 JL ) , C 7 ( JL ) , C 8 ( JL ) 

681 F0RMAT(9X,4(X,E15.8) ) 

81 FORMAT! 4X,A1»X,I2»5(X,E12.8)> 

36 CONTINUE 


170 



JM= JM+4 
3b CONTINUE 

WRITE <fe,500>(KSTA! II ),II=1, 11) 

500 FORMAT! X t ll(X f I2)) 

DO 37 J = 1 , 50 

C INPUT SATELLITE CONSTANTS 

READ ( 5,82) K$A I D( J ) , FREQ ( J ) 

82 FORMAT! 15, 19X,F8.3) 

WRITE! 6,582) KS A I D ! J ) , FR EO ( J ) 

582 FORMAT! X, I5,19X,F8.3> 

I F ( KS A I D ( J ) )37, 38,37 

37 CONTINUE 

38 K S ATC T = J- 1 

C READ DATA CHECK FOR AMPERSINE ********************************** 

39 READ! 9,601 , END= 1 , ERR- 30 MOATA! I ) , [ = 1,65) 

601 FORMAT ! 65 A 1 ) 

IF( DATA! 1 ) .NE.lAMP)GO TO 39 
IF(DATA( 7) .EQ.SPXJGQ TO 83 
IF! DATA! 8 ) .FQ.SPX)GG TU 83 
1F< DATA! 4)~BIN.LQ.O) GO TO 85 

S AT - < (DATA! 3>-BINmOOOO. ) + M DA TA ( 4 ) -B I N ) * 1 000. ) + ( ( DAT A ( 5 ) -B I N ) * 1 0 
XO. )+! ( DATA! 6)-BIN)*10. > + < DATA ( 8 ) -B I N ) 

GO TO 84 

85 SAT = < (DATA! 2)-BIN)*10000.)-H (DATA{3)~BIN)*1000.)+( ( DATA ( 5 ) -BJ N ) * 1 0 
XO. ) + ( ! DATA! 6)-BiN}*10. ) + ( D A T A (, 8 ) — BIN ) 

GO TO 84 

83 S AT = ( ! DATA (2 ) -B I N ) * 10000. ) + ( < DATA! 3)-BIN)*l000. ) + ! ( DAT A ( 4 ) -B I N ) * 10 
XOH-! (DATA! 5) -BIN)* 10) + ( DATA (6 > -B IN) 

84 DO 602 M- 1,50 

IF( SAT.EQ.KSAID!M) }G0 TO 603 

602 CONTINUE 
WRITE! 6,635) 

635 FORMAT! 19H SAID NOT IN TABLE ) 

WR I TE ( 6 , 1 8 3 ) I AMP , SAT 
183 FORMAT! X,A1, 15 ) 

GO TO 604 

603 WRITE! 16,601 ) (DATA! I ), 1 = 1,65) 

C READ CAL. LINE WITH FORMAT CHECK ******************************* 

READ! 9,601, END= 1,ERR= 39) (DATA! I }, 1=1,65) 

IFtDATA! 1) .EQ.IAMPIGO TO 83 
WRITE! 16,601 )( DATA! I ) , 1=1,65) 

C CHECK PERIODS IN CAL. LINE 

IF<DATA(5).NE.PEZ)G0 TO 604 
IF!DATA! 13) *NE*PEZ)GO TO 604 
IF(DATA( 18).NE.PEZ)G0 TO 604 
IF!DATA(26) .NE.PEZ) GO TO 604 
IF!DATA(31).NE.PEZ*G0 TO 604 
IF(DATA(39) .NE.PEZ)GO TO 604 
IF(0ATA(45 )♦ NE.PEZ )G0 TO 604 
IF(DATA(53) *NE.PEZ)GO TO 604 
IF!DATA(57).NE.PEZ)G0 TO 604 
IF(DATA(65) .NE.PEZ)GO TO 604 
DO 605 K= 1 , 4 

IF! DATA(K)-BIN.GT.9) GO TO 604 
IF(DATA!K )-B JN.L T.O ) GO TO 604 
DATA(K)=DATA(K)“6IN 

605 CONTINUE 

DO 606 K = 6 , 1 2 

IF!DATA(K)-BIN.GT.9)G0 TO 604 
IF(DATA(K) —B I N . L T *0 ) GO TO 604 
DAT A ( K ) =DATA ( K ) -8 I N 

606 CONTINUE 

DO 607 K= 14 , 17 

!F(DATA(K)-BIN.GT.9)G0 TO 604 
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IF(OATA(KJ-BIN.LT.O)GO TO 604 
DATA! K)=DATA(K)-B1N 

607 CONTINUE 

DO 608 K= 1 9 , 2 5 

IF(DATA(K)-BIN»GT.9)G0 TO 604 
IF(DATA(K)-BlN.LT.0)G0 TO 604 
DATA{K)=DATA(K)-BIN 

608 CONTINUE 

00 609 K=27,30 

IF(DATA(K)-BIN.GT .9) GO TO 604 
IF< DATA(K)-BIN.LT.O)GQ TO 604 
DATA(K)=DATA< K)-BIN 

609 CONTINUE 

DO 610 K=32 t 38 

IF(DATA(K)-BIN.GT.9)G0 TO 604 
1F(DATA<K)-BIN.LT.0)GU TO 604 
DATA<K)=DATA<K)-BIN 

610 CONTINUE 

DO 611 K=40,44 

1F(DATA(K)-BIN.GT.9)G0 TO 604 
IF! DATA(K)-6IN.LT.O)GO TO 604 
DATA!K)=DATA< K)-B!N 

611 CONTINUE 

DO 612 K = 46 ,52 

IF( 0ATA(K)-BIN.GT«9JG0 TO 604 
1F!DATA(K)-BIN.LT.0)G0 TO 604 
DATA(K)=0ATA(K)-B1N 

612 CONTINUE 

DO 613 K=54,56 

IF!DATA<K)-BIN.GT.9)G0 TO 604 
I F ( DAT A ( K (-BIN. LT. 01 GO TO 604 
DATA! K ) =DAT A ( K ) -BIN 

613 CONTINUE 

DO 614 K=58,64 

IF(OATA(K)— BIN.GT.9JG0 TO 604 
IF(OATA(KI-BIN.LT.O)GO TO 604 
DATA!K)=DATA!K.)-B1N 

614 CONTINUE 

X = DATA(9)+DATA(2 2 I+DATAI 35 ( +DAT A I 49 ) +DA T A ( 6 II 

IFI X.NE.45. >G0 TO 604 

CSTA=( DATA! 55 ) * 10 . ) + ! OA TA ( 56 ) ) 

DO 616 L = l, 12 

IF!KSTA(L).EQ.CSTA)GO TO 617 

616 CONTINUE 
WRITE! 6,618) 

618 FORMAT ( 27H WRONG STATION IN CAL. LINE > 

GO TO 604 

617 D=DATA< 3 ) * 10+DATA < 4 ) 

CEWM=D/100. 

D=DATA< 16 ) * 10+DAT A ( 17) 

CEWC=D/100. 

D = DAT A ( 6 ) * 100+ DATA !7)*10+DATA( 8> 

CEWF 1=0/ 1000 . 

D=DATA( 19 > * 100 + DAT A ( 20 ) * 10+DAT A ( 2 1) 

CEWF2=D/ 1000. 

D = DATA( 32 I * 100 + DAT A ( 33)*10+0ATA< 34) 

CEWF3=D/ 1000. 

D=DATA!46)*100+DATAt 47)*10+DATA( 48) 

CEWF4=D/ 1000. 

0=DAT A ( 5 8) * 100+ DATA ( 59)*10+DATA! 60) 

CEWF5=0/ 1000. 

D=DAT A ( 10 ) * 100+ DATA! 11)*10+DATA{ 12) 

CNSF1=D/ 1000. 

0 = DATAI 23) * 100+DAT A I 24)*10+DAT A l 25) 
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CNSF2=D/ 1000. 

0 = D AT A ( 36)#100+DATA(37)*10+DATA(38) 

CNSF3=D/ 1000. 

D=DATAl 50)*100+DATA< 51 )*10+0ATA< 52) 

CNSF4=D/ 1000. 

D=DAT Al 62 ) * 100 + 0AT A I 6 3 )* 10+0 AT A I 64 ) 

C NS F 5 = D/ 1000 . 

D=0ATA(29)*lO+DATA( 30) 

CNSM=D/100. 

D=DATA(43)#10+DATA<44> 

CNSC=D/ 1 00. 

CSTA = DATA{ 55)410+ DATA ( 56) 

WRITE ( 11 » 501 ) I AMP,SAT,CSTA,STATIO< L ) 

501 FORMAT! X»A1» 15, X, I2,X,A6> 

CANT=DATA ( 54 ) 

£NO=OAT A( 65 ) 

43 CEWM=EWM(L)+CEWM 
CEWC=EWC(L)+CEWC 
CNSM=NSK(L)+CNSM 
CNSC = NSC< L)+CNSC 
KM= 5 . 

R ATE=0. 

IDIF1=CEWF2-CEWF 1 
IDIF2=CEWF3— CEWF2 
I0IF3=CEWF4-CEWF3 
1 0 1 F4 = CEWF5— CE WF 4 

C£WFl = CEWF3+( ( (9.*< IDIF3-IDIF2) )-( 3.*< I 01 F4-IDIF1 ) ) ) /35. ) 
IFtCANT-2.) 162. 160* 161 

C NARROW BAND TRACKING FILTER 444*444*4****4**4444*444*#*4***4****** 

160 TO I F = . 0 
ASTI 1 )=SPA 
GO TO 164 

161 I D I F = » 0 
ASTI 1 l=ASK 
GO TO 164 

162 IFICANT.EO. 1. (GO TO 164 

163 1DIF=.120 

C 2 CPS TRACKING FILTER ******************************************** 

AST I 1 ) =PER 

164 IDIF1=CNSF2-CNSF1 
IDIF2-CNSF3-CNSF2 
I D l F3 = CNSF 4— CNSF 3 
IDIF4=CNSF5-CNSF4 

CNSF 1=CNSF 3+ ( ( { 9.*( IDIF3-IDIF2 ) )-(3.*( IDIF4-ID1F1 ) ) ) /35. ) 

C CABLF LENGTH INEQUALITIES 

CEWM = < <CLEWM(L>/.846)*{ 136. 5-FREQ ( M > ) l+CEWM 
C EWC = I (CLEWCIL )/.846 ) 4 ( 1 36. 5-FREQ I M ) ) ) +CEWC 
CNSM=( (CLNSMI L ) / .846 ) * ( 136. 5-FREOI M ) > ) +CNSM 
CNSC= ( (CLNSCtL)/. 846 )*( 136.5-FREQIM) ) )+CNSC 
WRITE( 11,636) 

636 FORMAT ( 55H CALIBRATED PHASE READINGS, 5 POINT FITTED FINE REAOINGS) 
C CALIBRATED ZENITH ************************************************ 

WRITE! 11,639) 

639 FORMAT ( 63H CEWM CEWC CNSM CNSC CEWF 

X CNSF ) 

WRITE! 11, 150) CEWM, CEWC, CNSM, CNSC rCEWFl.CN SF1 
150 F0RMAT(6(X,F10.6) ) 

WR I T E ( 11,640) 

640 FORMAT ( 74H HRMNSC EWF1NE EWMEDM EWCORS NSFINE 

XNSMEDM NSCORS I 

C READ OATA WITH FORMAT CHECK************************************ 

DO 41 JK= 1 , 60 
K = J K 

I F I K.EO . 32 • ) GO TO 120 
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621 READ! 9*60iiEN0-lt £RR= 32 H DAT A ( I)* 1=1*65) 
IFtDATA! 1) .EO. IAMP)GO TO 83 

WRITE! 16» 601 M DATA! I ) , I> 1,65) 

IF (DATA! 10) .EQ*SPX )GO TO 122 
GO TO 124 

122 IF! DATA{ 30) .EQ.SPX ) GO TO 123 
GO TO 124 

123 1F<DATA!50) .EQ.SPXJGO TO 120 

124 IF(DATA!5).NE*PEZ)GQ TO 621 

C CHECK PERIODS IN DATA LINE 

IF!DATA(13).NE*PEZ)G0 TO 621 
IFlOATA(ie) *NE*PEZ)GO TO 621 
IF!DATA(26).NE-PEZ)G0 TO 621 
IF(DATA< 31) .NE.PEZ ) GO TO 621 
IFIDATA! 39).NE.PEZ)G0 TO 621 
IF(DATA!45) »N6*PEZ)G0 TO 621 
IF(0ATA(53)*NE«PEZ) GO TO 621 
IFiDATA! 57) .NE.PEZ)GO TO 621 
IFCDATA! 65 ) •NE*PEZ)GQ TO 621 
DO 622 J= 1 t 4 

I F ( DAT A! J )-BIN.GT«9)G0 TO 621 
IF!DATA( J)-BIN*LT.O)GO TO 621 
DATAIJ)=DATA(J)-BIN 

622 CONTINUE 

DO 623 J-6* 12 

IF!DATA< J)-BIN.GT.9>G0 TO 621 
IF(DATA(J)-BIN#LT.O)GO TO 621 
DATA{ J)=DATA(J)-BIN 

623 CONTINUE 

DO 624 J= 14 f 1 7 

IFIDATA! J )-BIN«GT«9)G0 TO 621 
IF(DATA(J)-BIN*LT*0)G0 TO 621 
DATA! J)=DATA< J)-BIN 

624 CONTINUE 

DO 625 J= 1 9? 25 

IFIDATA! J)-6IN.GT.9)G0 TO 621 
IF{0ATA(J)-BIN*LT*O)GO TO 621 
DATA! J)=DATA! J)-BIN 

625 CONTINUE 

DO 626 J-2 7 t 30 

I F ( 0 ATA! Jl-BIN*GTo9)G0 TO 621 
IF(DATA( J)-BIN.LT*0)G0 .TO 621 
DATA! J)=DATA! J)-6IN 

626 CONTINUE 

DO 627 J = 32 * 38 

IFIDATA! JI-BIN.GT.9)G0 TO 621 
IF(DATA( J)-BIN,LT.0)G0 TO 621 
DATA! J)=DATA< JI-BIN 

627 CONTINUE 

DO 628 J = 40 f 44 

IF(DATA! J )-BIN*GT*9)G0 TO 621 
I F ( 0 AT A! JI-BIN.LT *0) GO TO 621 
DATA!J)-DATA(J)~BIN 

628 CONTINUE 

DO 629 J = 4 6 ? 5 2 

IF(OATAt J)-B1N*GT.9)G0 TO 621 
IFIDATA! J)-BIN.LT.O)GO TO 621 
DATA! J } -DATA ( J)-BIN 

629 CONTINUE 

DO 630 J= 54 ? 56 

IF(OATA< JJ-BIN.GT.9JG0 TO 621 
IF ( DATA! J ) -B IN.LT #0 > GO TO 621 
DATA! J>=DATA< JJ-BIN 

630 CONTINUE 
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DO 631 J = 5 8 » 64 

IFtDATAt J)-81N.GT.9)GD TO 621 
IFtDATAt J)-BlN.LT.O)GO TO 621 
DATAt J)=DATAIJ)-8IN 
631 CONTINUE 

SECDt K> =DATAt 1 ) *10+DATA ( 2 ) 

M I NO I K )=DATA< 14 ) * 1 0 + O AT A { 15 ) 

HORDU)=DATAI 2 7 ) * 10+ DATA ( 28 ) 

ANT0tK)=DATA<54> 

IDA YD ( K ) =0 AT A t 40 > * 100 + DA TA < 4 1 ) *1 0+0 AT A ( 42 ) 

STAD(K)=OATA(55)*10+DATA( 56) 

D=DATAt 3)*lt)+DATAt4) 

EWMD ( K ) =0/100 . 

D = DAT A ( 16 ) 4 10+DAT A ( 17) 

EWCD(K)=D/100. 

0=0 AT A ( 29 )* 10+0 AT A < 301 
NSMDtK > = D/100. 

D=DATAt43)*10+DATAt44> 

NSCD(K>=0/100. 

0= DAT At 6 ) *100+ DATAt 7 ) * 10 + DAT A ( 8 ) 

EWF 1 =0/ L 000. 

D = OATA( 19)*100+DATA< 20>*10+DATA< 21 ) 

EWF2=D/ 1000. 

D=DATA< 3 2)* lOO + OAT A ( 33 ) *1 0 + DAT A ( 34 ) 

EWF3=D/ 1000. 

0=DAT At 46) * 100 + DAT A ( 47 ) * 1 0+DAT A t 48 ) 

EWF4=D/ 1 000. 

0=DAT At 581 * 100+DAT A t 59 ) * 10+DAT A t 60 ) 

E WF 5 = 0/ 1000. 

D=0ATA< 10 ) * 100 + DAT At 11 ) * 10+0 AT At 12 ) 

NSF 1 =D/ 1 000. 

D=DATA( 23)*100+DATA< 24>*10 + DATAt 25) 

NSF2=0/1000. 

D=DAT At 36)* 100 + DAT At 37 ) *10+0 AT A t 38 ) 

NSF 3 = 0/ 1000. 

D = 0 AT A 1 501*100 + DATAt 51 )*10 + DATAt 52 ) 

NSF4=D/ 1000. 

0 = 0 AT At 6 2 )*100+0ATA( 63 ) * 1 0 + DAT A t 64 ) 

NSF5=D/ 1 000. 

S I G 1 = DAT A ( 9 ) 

S I G2 = DAT A ( 22 ) 

S IG3 = DAT At 35) 

S I G4=DAT A t 49 ) 

S I G5 = DAT A ( 6 1 ) 

£ND=OATA ( 65 ) 

100 IF< ANTDt K)-2) 102, 101,101 

101 ANT = 57. 

GO TO 103 

102 ANT =46. 

103 T I M t K ) = t { HORDt K ) *3600. ) + 1 60 ,*M IND t K 1 > ) +SECD t K ) 

C FIT FIVE FINES EACH LINE 

IDIF1=EWF2-EWF1 
CALL NORMAL! IDIF1 ) 

10IF2=EWF3-EWF2 
CALL NORMALt IDIF2 ) 

IDIF3=EWF4-EWF3 
CALL NORMALt IDIF3) 

IDIF4=EWF5-EWF4 
CALL NORMALt 1DIF4) 

EEWF I K) =EWF3+t ( ( 9 .* t I D I F 3- 1 0 1 F2 ) ) - 1 3. * < 1 0 IF4- 1 0 1 F 1 ) I )/35. ) 

I D I F 5 = t ( IDIF1+IDIF2 + IDI F 3+1 D I F4 ) / 4. ) 

C COUNTER DELAY tTIME) ********************************************* 

EEWFtK)=(EEWF(K)~(»05*IDIF5*EWF3) ) 

IDIF1=NSF2-NSF1 
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CALL NORMAL ( IDIF1 ) 

IDIF2=NSF3-NSF2 
CALL NORMAL I 1 0 1 F2 I 
I0IF3=NSF4-NSF3 
CALL NORMAL ! IDIF3) 

ID IF<V=NSF5-NSF4 
CALL NORMAL ! IDIF4 ) 

ENSF!K)=NSF3+( < <9.*< IDIF3-IDIF2 n-(3.*< 1DIFA-ID1F1) ) )/35. » 

IDIF5=( ( IDIF1+IDIF2+IDIF3+IDIF*)/*. ) 

C FILTER DELAY (TIME) 

6NSF<K)=ENSF!K)-(.O5*I0IF5*NSF3> 

ID1F1=S1G2-SIG1 

IDIF2=SIG3-SIG2 

IDIF3=SIG4-SIG3 

ID1F4=SIG5-SIG* 

S IGD! K ) =S I G3+ ( ( ! 9 . * ! IDIF3-ID1F2) ) — ( 3 • * ( IDIF4-I.DIF lH ) /35> 

WRITE! 11, 151>HORD(K> , M I NO l K ) , SEC D < K > , E EWF! K I , EWMO < K > , EWCD t K > , ENSF < 
XK) ,NSMD!K) , NSCD ( K ) 

151 FORMAT! X,l2,l2*I2,X,<6tF10.6,X)I) 

41 CONTINUE 

C DATA MSG. COMPLETE, START SMOOTHING ******************************** 

120 SL=.01 
AST! 6)=SPA 
K = l 

IF(K.LE.5)GU TO 780 
GO TO 782 

780 WRITE! 6, 7811 

781 FORMAT! 27H LESS THAN 5 LINES OF DATA ) 

KZ=K-1 

GO TO 78 

782 JK=K 

IF! ANT. EQ. 57. I GO TO 90 
GO TO 91 

90 CEWF1=CEWF1+EWFP0( L) 

CNSF1=CNSF1+NSFP0(L) 

AST! 2)=P0L 

GO TO 121 

91 CEWF1=CEWF1+EWFE0!L) 

CNSF1=CNSF1+NSFE0(L ) 

AST! 2)=E0 

121 SM=2 . 0 
WRITE! 11,638) 

638 FORMAT ! 32H KC-KS1 USING STATION CONSTANTS ) 

WRITE! 11, 1152)CEWF1,EWFP0! L) ,EWFEO!L I , CN S F 1 , N SFPO ! L ) , NS F EQ ( L) 

C CHECK TIME SEOUENCE *********** *** * **** *************************** 

I B = 0 
IC = 0 
ID-0 
I E = 0 
I F-0 
I G=0 
I H-0 
K0=K-1 

DO 20 KS=i tKQ 

806 IT2M-TIM( KS+1 >-TIM<KS> 

IFt 1TZM)807, 807*808 

807 TlM<K$ + n-TIM(KS*l)+86400* 

GO TO 806 

808 I F ( ITZM.NE. 1 >G0 TO 21 
I B- I B+ 1 

GO TO 20 

21 I F ( I T ZM *NE • 2 )G0 TO 22 
IC=IC+L 
GO TO 20 
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22 I F ( ITZM.NE.10 IGO TO 23 
ID=IO+l 

GO TO 20 

23 IF! ITZM.NE.20 )G0 TO 24 

ie=ie+i 

GO TO 20 

24 IF! ITZM.NE.60 IGO TO 25 
I F = I F+ 1 

GO TO 20 

25 I F { 1TZM.NE.120 IGO TO 26 
I G= I G+ 1 

GO TO 20 

26 IF< ITZM.NE.600 )G0 TO 20 
1 H= I H+ 1 

GO TO 20 
20 CONTINUE 

I TZM=MAXO ( IB»IC*ID»IE,IF,IG,IHI 
I F ( IB. EO. ITZMIGO TO 200 
I F ( 1C. EO. ITZMIGO TO 201 
I F ( 10. EO. ITZMIGO TO 202 
IF! IE.EQ. ITZMIGO TO 203 
I F ( IF. EC. ITZMIGO TO 204 
I F ( I G. EO. ITZMIGO TO 205 
IF! IH.EO. ITZMIGO TO 206 

200 AST ( 3 ) =F 1 
T I L I = 1 . 

GO TO 207 

201 AST ( 3 1 =F 2 
T I L I =2. 

GO TO 207 

202 AST ! 3 I =F3 
T IL 1=10. 

GO TO 207 

203 AST ( 3 ) =F4 
T IL 1=20. 

GO TO 207 

204 ASTI 31=F5 
T I L I =60. 

GO TO 207 

205 AST ( 3 1 =F6 
TIL 1 = 120. 

GO TO 207 

206 AST(3I=F7 
T IL 1=600. 

GO TO 207 

72 WRITE! 6,731 

73 FORMAT 1 22H TIME OUT OF SEQUANCE I 
KZ=K-1 

78 WRITE! 6,77) SAT ,CSTA,STATIU( L ) , HORD I KZ I , M I NO ( KZ) , I 0 AYD ! KZ I 
77 FORMAT! X,I5,X,I2,X,A6,X,I2,I2,X,I3) 

GO TO 65 

74 WRITE! 6,75) 

75 FORMAT ( 25H DATA EXCEEDS TIME CHECK > 

KZ=K-1 

GO TO 78 

50 WRITE! 11,51 I 

51 FORMAT ( 40H EAST MEDIUM CHANNEL EXCEEDS 100 COUNTS I 
AST ( 6 I =F 1 

RATE=0. 

GO TO 58 

52 WRITE! 11,53 I 

53 FORMAT ( 40H EAST COURSE CHANNEL EXCEEDS 100 COUNTS ) 

AST ( 6 I =F 1 

R ATE=0. 
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GO TO 58 

54 WRITE! 11,55) 

55 FORMAT ( 4 1H NORTH MEDIUM CHANNEL EXCEEDS 100 COUNTS ) 

AS T ( 6 ) =F2 

RATE = 0 . 

GO TO 59 

56 WRITE! 11,57) 

57 FORMAT ( 4 1H NORTH COURSE CHANNEL EXCEEOS 100 COUNTS ) 

AST ( 6 ) = F 2 

R ATE=0. 

GO TO 59 

804 WRITE! 11,805) 

805 F.ORM AT ( 2 7H DATA WILL NOT LOBE ASSIGN ) 

KZ-K-\ 

GO TO 78 

C EW AMBIGUITY LUBE ASSIGN. 

207 SL = . 0 1 5 
K=JK-1 
DO 70 N= 1 , K 

IF! TIM! N+l )-T I M! N) 172,72,71 
71 IF(TIM<N+1)-TIM(N>-(5.*TILI)> 70, 70*74 

70 CONTINUE 
K = JK 

CALL LOBASN! T I M , K , E WMO,R A T E * ITD) 

IF! ITD.GE.100)G0 TO 804 

CALL LOBASN! TIM, K,EWCD, RATE, l TO) 

IF! I TO. GE . 1 00 ) GO TO 804 

CALL LSOOUA! TIM, ALPHA, EWMO,K,MIO,SIA,SL , 6WMB,EWMC ,SM,ENA,EOA) 
EWMA = ALPHA + EWMO< MID) 

EWMT=T1M!MID)-.15 
S A = S I A 

WRITE! 11,643) 

643 FORMAT ( 83H ALPHA. EWM MID.PT. RATE SIGMA 

X BETA GAMMA ) 

WRITE! 11, 152) ALPHA, Ml 0, RATE, SI A, EW MB, EWMC 
152 FORMAT! X,F14.6,X, 16, X,4!F 14.6, X) ) 

X = J K 

CALL LSOOUA! TIM, ALPHA, EWCD,K, MID, S! A,SL , E WC B , EWCC , SM , ENB , EOB ) 
EWCA=ALPHA+EWCD! M ID) 

EWCT = TIM< MID1 + .05 
S6 = S I A 

WRITE! 11,644) 

644 FORMAT < 83H ALPHA. EWC MID.PT. RATE SIGMA 

X BETA GAMMA ) 

WRITE! 11, 152)ALPHA, MID, RATE, SIAfEWCB, EWCC 
R ATE= ( ( EWMB*ANT/4. )+(EWCB* ANT/3. 5>)/2. 

IF! ABS! RATE). LE.. 05 IRATE = 0.0 
C EWF LOBE ASSIGN. 

IF(ABS!SB).GT«.1( GO TD 52 
IF! ABS! SA) .GT..1 ) GO TG 50 

58 S L = . 0 1 
SM=2.5 
K=JK 

CALL LOBASN! T I M , K , E E WF , RATE , I TD ) 

IF! ITD.GE. 100)G0 TD 804 

CALL LSOOUA! T I M , ALPH A , E EWF , K , M I D , S I A , SL , EWF B ♦ E WFC ,SM, ENC ,EOC ) 
EWFT=T IM( MI D | 

EWFA = AIPHA + EEWF< MID I 
224 SC = S I A 

INO=SIA*1000.+.5 
227 CALL Z E RO ( 3 * I NO, I ENO ) 

1DAYDI 1 ) = I OA YD! MID) 

WRITE! 11,642) 

642 FORMAT < 83H ALPHA. EWF MID.PT. RATE SIGMA 
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X BETA GAMMA ) 

WRITE! lit 152 ) ALPHA f MIL), RATE t SIA, EWFB tEWFC 
WRITE! Ut 153 )EWMAtE WMTtEWCAtE WCT t RATE 
153 FORMAT! 6! F14,6,X ) ) 

C NS AMBIGUITY LOBE ASSIGN, 

5L = • 0 1 5 
RATE=0. 

K = J K 
SM = 2 * 0 

CALL LOBASN ( T I M , K *.NS MD t R AT E , I TO > 

IF! I T D, GE ♦ 100 ) GO TO 804 

CALL LOBASN! TlMtKtNSCOtRATEt ITU) 

IF! I TL), GE* 100 ) GO TO 804 

CALL LSOGUA! T 1 M t AL PH A t NS MD t K f M I D t S I A f SL t SNMB f SNMC , SM , ENX , EOO ) 
SNMA-ALPHA+NSMD! MIO) 

SNMT = T I M { M I D ) + • 25 
SO = S I A 

WRITE! 1 1 1 6 46 ) 

646 FORMAT(83H ALPHA, NSM MID.PT. RATE SIGMA 

X BETA GAMMA ) 

WRITE! lit 152 ) ALPHA, MID, RATE, SI At SNMB t SNMC 
K = JK 

CALL LSOOUA! T I M t AL PH A t NSCD » K t M I Ot S I A , SL t SNC B f SNCC t SM t E NE t EOE ) 
SNCA^ALPHA+NSCD! MID) 

SNCT=TIM!MID)+*45 
SE = S I A 

RATE = ( ( (SNM6*ANT/4. > + ( SNCB* ANT/ 3, 5 ) )/2, ) 

IF! ABS ( RATE ) * L E . . 05 ) R A T E = 0 ♦ 0 
WRITE! lit 647 > 

647 FORMAT! 83H ALPHA, NSC MID.PT. RATE SIGMA 

X BETA GAMMA ) 

WRITE! 1U 152 ) ALPHA t MID tRATE,SI A tSNCBt SNCC 
C NSF LOBE ASSIGN, 

IF! ABS! SD) .GT.,1 ) GO TO 54 
IF(ABS(SE).GT,,1)G0 TO 56 
59 SL= , 0 1 
SM=2 , 5 
K = JK 

CALL LOBASN! TIM t KtENSFtRATEt ITD) 

IF! 1 TD. GE • 100 > GO TO 804 

CALL LSQQUA(TlM t ALPHA tENSFtKt MI DtSlAtSLtSNFB tSNFCtSMtENFt EOF ) 
SNFT-TIMtMID) 

SNFA=ALPHA+FNSF (MID) 

230 S F = S I A 
IS0=SIA*1000.+.5 

229 CALL ZERO! 3t ISOt INNO) 

I L = 0 
! K = 0 
I J- 50, 

IF! ABS! SC) .GT..05)G0 TO 231 

234 IF! ABS! SF ) ,GT.,05)GU TO 235 
GO TO 239 

231 A ST ( 6 ) 1 
1 K = 50 

GO TO 234 

235 A ST ( 6 ) =F 2 
IL=:50 

239 WRITE! Ilt645> 

645 FORMAT ! 83H ALPHA, NSF MID.PT. RATE SIGMA 

X BETA GAMMA > 

WRITE! 11 t 152) ALPHA, M ID. RATEfSIAtSNFBtSNFC 
WRITE! 11 t 153)SNMAtSNMT tSNCAtSNCT tRATE 
WRITE! lit 777) 
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LOBE ASSIGNED OATA AFTER THE FIT HAS BEEN APPLIED ************** 

FORMAT ( 99H^F R A .TIME EWFINE O-C EWMEDM O-C EWCORS O-C 

<m«;f 1 NF O-C NSMEOM Q-C NSCORS O-C ) 


6A1 FORMAT! 99H FRA. TIME EWFINE O-C EWMEDM O-C tWCUKi u-c 

XNSFINE O-C NSMEOM Q-C NSCORS O-C ) 

K = JK 

DO 790 I = l » K 

T = T I M ( I I-EWMT-. 15 

AM=EWMA+( EWMB*T > +( EWMC*T**2 ) 

T=TIM( I ) -EWCT+ .05 
AN=EWCA+!EWCB*T)+( EWCC*T**2 ) 

T=TIMt D-EWFT 

AO=EWFA+ ( EWFB*T ) + ( EWFC*T**2 ) 

T=T I M ! I 1-SNMT+. 25 

AP = SNMA+I SNMB*T ) + I SNMC*T**2) 

T = T I M ( I) -SNCT+ .45 
AQ=SNCA+< SNCB*T ) + ! SNCC*T**2 ) 

T =T 1 M ( I l-SNFT 

AR=SNFA+( SNFB*T )+( SNFC*T**2 ) 

AO = EEWF I I ) -AO 
A M = E WMD ( I ) - AM 
AN = EWCD( U-AN 
AR=ENSF ( I ) — AR 
AP=NSMD( I l-AP 
AQ=NSCD( H-AO 

WRITE! 11*791 > T I M ( It ,EEWF< I ) .AO.EWMD! I > .AM.EWCD! I ) .AN.ENSFd ) .AR.NS 
XMDt I > , AP.NSCD! I ) .AO 

791 FORMAT! X.F7. 1.6! X »F7 . 3. X , F6. 3 ) ) 

790 CONTINUE 

WRITE! 11.7921ENA.SA.E0A. ENB* SB .EOB.ENC.SC.EOC 
WRITE! 11,793) 

WRITE! 11, 794) 

WRITE! 11,792 IENX.SD, EQD.ENE.SE, EOE.ENF.SF, EOF 

792 FORMAT! 3!X,I2,4X,F5.3,8X,I2>) 

793 FORMAT! 67H IN 6WM SIGMA OT IN EWC SIGMA OT IN EWF 

XSIGMA OT ) 

794 FORMAT! 67H IN NSM SIGMA OT IN NSC SIGMA OT IN NSF 

XSIGMA OT ) 

ADJUST TIME TO EWFINE FITTED TIME 

XKFA = < KFA! L) / 1 000 . J + IDIF 
XKFB=!KFB(L)/1000. )+IDIF 

EWFA=EWFA+EWFB*< -XKFAJ+EWFC*! (-XKFA)**2 ) 

EWFB=EWFB+2.*EWFC*{“XKFA) 

SNFA=SNFA+SNFB*l EWFT-SNFT-XKFB H-SNFC*! < EWFT-SNFT-XKFB >**2 ) 
SNFB=SNFB+2.*SNFC*(-XKFB) 

EWMA = EWMA+EWMB* : ( EWFT-EWMT ) +EWMC* I !EWFT-EWMT)**2) 

EWCA = EWCA + EWCB*( EWFT-EWCT )+EWCC*< ! EWF T-EWCT 1 ** 2 ) 

SNMA=SNMA+SNMB*< EWFT-SNMT )+SNMC*( (EWFT-SNMT )**2) 

SNC A=SNC A+SNCB* ( EWPT-SNCT)+SNCC*< !EWFT-SNCT )**2) 

118 EWFBB=EWFA-CEWF1 

PHASE ANGLE (FITTEO) MINUS KS2+KC-KS1 

£WMBB=EWMA— CEWM 

EWCBB=EWCA— CEWC 

SNFBB=SNFA-CNSF1 

SNMBB=SNMA-CNSM 

SNCBB=SNCA-CNSC 

REMOVE LOBE INTERGER 

LOIF=EWFBB 

EWFBB=EWFBB-LDIF 

LDIF=EWMBB 

EWMBB=EWMBB-LDIF 

LOIF=EWCBB 

EWCBB = EWCBB-LD IF 

L D 1 F = SNFBB 

SNFBB = SNFBB-LD IF 


OT 

IN 

EWC 

SIGMA 

OT 

IN 

EWF 

OT 

IN 

NSC 

SIGMA 

OT 

IN 

NSF 
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LDIF=SNMBB 

SNMBB=SNMBB-LOIF 

LD I F=SNCBB 

SNCBB=SNCBB-LDIF 

AB=EWMBB-EWCBB 

LOIF=AB 

AB= AB-LD I F 

CALL NORMAL ( AB ) 

BC=SNMBB-SNCBB 

LDIF=BC 

BC = BC-Lt)IF 

CALL NORMAL (BC) 

AB4=A6*8. 

BC4 = BC* 8 • 

AB3=Ab*7. 

BC3=BC*7. 

6 AB4=AB4-EWMBB 
LOIF=EAB4 
EAB4=EAB4-101F 
CALL NORMAL ! E ABA ) 
EBC4=BC4-SNMBB 
LDI F=EBC4 
EBC4=EBC4— LDIF 
CALL NORMAL! EBC4 ) 

OE=AB4-E AB4 
FG=BC4-EBC4 
EAB3=AB3-EWCB6 
LDIF=EAB3 
EAB3=EAB3-LD IF 
CALL NORMAL ( EAB3 I 
EBC3=BC3-SNCBB 
LDI F=EBC3 
EBC3=EBC3-LD1F 
CALL NORMAL < EBC3 ) 

DE3= AB3-E AB3 

FG3 = BC 3-E BC 3 

CORE=DE+DE3 

CORN=FG+FG3 

COREF= I ANT/7.5 )*CORE 

CURNF=( ANT/7.5 )*CORN 

FE=COREF-EWFBB 

LDIF=FE 

FE=FE-LDIF 

CALL NORMAL ( F6 ) 

FN=CORNF-SNFBB 

LDIF=FN 

FN=FN-LDIF 

CALL NORMALIFNI 

EWLOBE=COREF-FE 

SNLOBE=CORNF-FN 

AMBIGUITY ERRORS 

EWM6R=4./ANT*EWL0BE-DE 

CALL NORMAL ! EWMER ) 

EWCER=3.5/ ANT*EWLOBE-DE3 

CALL NORMAL ( EW CER ) 

SNMER=4./ ANT*SNL06E-FG 

CALL NORMAL! SNMER) 

SNCER=3.5/ANT*SNLOBE-FG3 

CALL NORMAL! SNCER) 

A6B= AB*2 

ADE=DE/4 

ADE3=DE3/3.5 

ACORE=CORE/7.5 

AEWLOB=EWLOBE/ANT 



WRITE! 11, 1152) ABB,ADE3,ADE,AC0RE,AEWL0B,EWFT 

ABC = BC > * : 2 

A FG= FG3 / 3 . 5 

AEG3=FG3/3.5 

AFG=FG/4 

AC0RN=C0RN/7. 5 

ASNLOB=$NLOBE/ANT 

WRITE! 11, 115 2 ) ABC, AFG3,AFG, ACORN, ASNL06,SNFT 

1152 FORMAT! 6! X, F 14.6 ) ) 

I F < ANTOIKI-2 1650,651,651 

651 WRITE! 11,648) 

648 FORMAT! 12H POLOR PASS ) 

GO TO 652 

650 WRITE! 11,649) 

649 FORMAT! 17H EQUATORIAL PASS ) 

GO TO 652 

652 1 A0= 2 
1 80=3 

ACOS = EWLO BE / ( ( FREQ! MI/136. ) *ANT ) 

BCOS = SNLOBE/< < FREQ ! M )/ 136. ) * ANT ) 

C SET UP FOR INTERGER OUTPUT 

I ACOS= AC OS* 1000000+ . 5 
lBCOS=BCOS#1000000+.5 
CALL ZERO! 8, IACOS,LCOSI 
CALL ZERO! 8, IBCOS,MCOS) 

SIGB=0. 

00 105 JX=1,JK 
SIGS=SIGD( JXJ+SIGD! JX+1 ) 

SIGB=SIGS+SIGB 
105 CONTINUE 

S 1 GA=S I GB / JK 
LDI F=S IGA 
SIGA=SIGA-LDIF 
226 I EWMER = EWMER*1000+.5 

260 lEWCER=EWCER*1000+.5 

261 ISNMER=SNMER*1000+.5 

262 I SNCER=SNCER* 1 000+ . 5 
IA=39. 

IF! ABS! IEWMER) .GT. I A ) GO TO 219 
IF! ABS! IEWCER).GT. IAJGO TO 219 
AST < 4) = SPA 
GO TO 220 

219 AST! 4 ) =SL A 

220 IF!ABS! I SNME R ) . GT . I A ) GO TO 225 
IF! ABS! ISNCER) ,GT.IA)GO TO 225 
A$T(5)=SPA 

GO TO 263 
225 AST ( 5 ) =SL A 

263 IELOBE = EWLOBE , * ! 1000 + «5 

IF! ABS! IEWMER). GT. IJIGO TO 221 
IFIABS! IEWCER).GT.IJ) GO TO 221 
GO TO 240 

221 AST ! 6 ) =F 1 
IK = 50 

240 IFtABSI ISNMER) .GT.IJJGO TO 222 
IF! ABS! ISNCER). GT. IJIGO TO 222 
GO TO 241 

222 AST ! 6 J =F2 
IL=50 

241 I X= I L + I K 
I XX=99 

IF! IX.GT. IXX)GO TO 265 
GO TO 264 
265 A ST ( 6 ) =F 3 
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264 lNLOBE=SNLOBE*lOOO+.5 
IERATE=EWFB*10000.*TILI 
INRATE=SNFB*10000.*TILI 
IEACC=EWFC*100000.*I TILI**2 ) 

INACC = SNFC*100000.*< TILI**2 ) 

I £OVER= I IABSI I E R A T E / 10000 I > 43+ I ABS t I E ACC / 1 OOO ) +64 
I NOV ER= ( IABSI l NR ATE/ 10000 ) ) *3+ 1 ABS I I N ACC / 1000 > +64 
I ERATE= IERATE-1 I ER ATE/ 10000 ) *10000 
1NRATE= 1NRAT6-I I NR AT E/ 1 0000 ) *1 00 00 
I EACC = I E ACC- ( IEACC/1000)*1000 
I N ACC= IN AC C-l IN ACC/ 1000 ) *1000 
269 ISIGA = SI GA* 1 00 + . 5 
I S I GA= I S I GA/5 • 

I YR=68 

I F < EWFT-86400. ) 115, US, 116 
i. 1 6 IDAYOI 1 ) = I DA YO I 1 ) + l 
EWFT=EWFT-86400. 

115 HOUR=EWFT / 3600. 

AMIN=I I EWFT-I HOUR* 3600. I )/60.) 

SECN= ( EHFT-I (H0UR*3600. )+(AMlN*60. ) ) ) 

BOUR=HOUR* 100 

BOUR = BOUR + AM IN 

CALL ZERO! 5»80UR» I OUR > 

ASEC=SECN*1000 

CALL ZER0(6,ASEC, IS6C) 

GO TO 117 

117 CALL PYROI IYR, IDAYDI 1 ) ,YRMOOA ) 

CALL ZERO! 3,CSTA,ASTA) 

CALL ZERO! 7 , YRMGOA , ARMODA ) 


HOUR=HOUR* 10000 

HOUR = AM IN* 100+HOUR + S ECN 

CALL ZERO! 7 , HOUR , AOUR > 

CALL ZERO! 6,.1EL0BE, JALOBfc ) 
CALL ZERO! 5, IERATE, I ARATE) 
CALL ZERO! 4, IEACC, IAACC) 
CALL ZERO! 3, IEWMER, IAWMER) 
CALL ZERO! 3, IEWCER, IAWCER) 
CALL ZERO! 6, INLOBE, 1BL0BE I 
CALL ZER0I5, INRATE, IBRATE) 
1ALL ZER0I4, INACC, IBACC ) 
CALL ZERO I 3, ISNMER, IBNMER) 
1 ALL ZER0I3, ISNCER, IBNCERI 
CALL ZERO! 3 , 1 S IGA , ICIGAI 
IF( IGRADE.EQ. 1 ) GO TO 761 
ASTI 6)=SPA 
761 P I D = M 1 0 

I F ( PIO.EO.ll.) GO TO 251 
IFIPID.E0.12. ) GO TO 252 
IF( PIO.EQ. 13. )G0 TO 253 
IF! PI0.EQ.14. )G0 TO 254 
IFI PID.EQ.15. 1 GO TO 255 
I F ( PIO.EQ. 16. ) GO TO 256 
IFIP1D.EQ. 17. IGO TO 257 
IFI PID.EQ.10. )G0 TO 250 
IFIPID.EQ.9. ) GO TO 270 
IFIPID.E0.8. ) GO TO 271. 
IFIPI0.EQ.7. ) GO TO 272 
IFIPI0.EQ.6. ) GO TO 273 
IFIPI0.E0.5. I GO TO 27* 

IFI PIO.EQ. 4. ) GO TO 275 
IFIPI0.E0.3. ) GO TO 276 
IFIPID.E0.2. IGO TO 277 
1FIPI0.EQ.1. IGO TO 278 
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250 I F IT=SPA 
GO TO 215 

251 I F 1 T = F 1 
GO TO 215 

252 I F I T = F2 
GO TO 215 

253 5 F 1 T = F3 
GO TO 215 

254 I F I T=F4 
GO TO 215 

255 I F I T= F 5 
GO TO 215 

256 I F 1 T = F6 
GO TO 215 

257 I F 1 T=F7 
GO TO 215 

270 I F I T = A9 
GO TO 215 

271 I F I T = A8 
GO TO 215 

272 I F I T = A7 
GO TO 215 

273 1 F I T = A6 
GO TO 215 

274 I F I T = A5 
GO TO 215 

275 I F I T = A4 
GO TO 215 

276 I F I T= A3 
GO TO 215 

277 l F I T = A2 
GO TO 215 

278 I F I T = A l 
GO TO 215 

215 WRITE(ll,216)SAT,AST!l),!ASTA(I)*I=2,3),AST(2> * ARMOOA » AOUR * SL E ( 4 ) » 
X I ALOBE , IARATE f I A ACC , 1 AHMER » I AWC E R * SLN < 4 ) » I BLOBE » I BRATE , 1 B ACC * I BNME 
XR, 1BNCER, ( ICIGAt I ) , 1=2, 3), ASTI 3 It IFIT, AST (6) , ( IENO( I) , I = 2 , 3 ) * I NNO t 
X AST ( 4 ) , A ST ( 5 > 

218 F0RMAT!X»I5,A1,2A1,A1,7AI,7A1,A1,6A1*5A1»4A1,3A1,3A1,A1,6A1,5A1,4A 

X1,3A1,3A1,X,2A1,A1,A1,A1,2A1 ,3A1, A1,A1 > 

WRITE( 15»216)SAT*AST( 1 } * ! AS TA ( I ) , l=2»3),AST(2) , ARMOOA, AOUR, SI E ( 4) » 
XI ALOBE, IARATE* I A ACC , I AWMER , 1 AWC ER ,S LN I 4 ) , 1BL0BE, I BRATE , I BACC , I BNME 
XR, IBNCER, (ICIGA(I),I=2,3),AST(3),IFIT,ASTI6),( IENO! I ) , I =2 , 3 ) , 1 NND, 
XAST ( 4 ) , AST ( 5 ( 

WRITE! 1 1 ,217 ) SAT, ST AT 10! L >, ARMOOA , I OUR, I S EC , LCOS , A ST ( 2 ) , I AO 
WRITE! 11*217ISAT,STATI0!L) , ARMOOA , I OUR , I SEC ,MCOS , AST ( 2 ) , I BO 
GO TO 778 , ,, 

216 FORMAT (I5,A1,2A1,A1*7A1,7A1,A1,6A1,5A1 ,4A1 , 3A1 ,3A1,AI,6A1,5A1,4A1, 
X3A1,3A1,X,2A1,A1, A1,A1,2A1, 3A1, A1,A1 ) 

217 FORMAT! X , 1 5 , X , A6 , 7A 1 , 5A 1 , 6A 1 , 2SX , 8A1 »3X , A1 , I 1 1 

778 WRITE! 11,777) 

GO TO 39 

30 WRITE! 6,31) 

31 FORMAT! 17H CAL. LINE PARITY ) 

GO TO 39 

32 WRITE! 11,33) 

33 FORMAT ( 24H DATA PARITY, NO MSG. END ) 

GO TO 120 

604 00 60 JZ=l,60 
JY = JZ 

IF! JY.E0.32. IGO TO 39 

61 READ! 9,601,END=1,ERR=61) < DATA! 1 ) ,1=1 ,65) 

IFIDATA! 1 ) . EQ . IAMP ) GO TO 83 
IFIDATA! 10) .EO.SPXIGO TO 62 
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GO TO 64 

62 I F ( DAT A ( 30) ♦ EQ • SPX ) GO TO 63 
GO TO 64 

63 IF(DATA(50) *EQ.SPX)GO TO 39 

64 WR I TE { 6 t 660 ) (DATA! I) , 1 = 1,65 ) 

660 FORMAT ( X,65A 1 ) 

60 CONTINUE 
GO TO 39 

65 K=JK-1 

00 66 I - 1 f K 

WRITE ( 6,67) HORD { I ) , M I ND II ) * $ EC 0 II ) t EE WF ( I ) , EWMD( I ) * EWCD ( I ) , ENSF ( I 
X) ,NSMD( I ) , N SCO I I ) ,ANTD<1) , IDAYDI 1) tSTADI l ) 

67 FORMAT! X, I2tI2,I2,X,{6{F10.6,X)J,I2,X,I3,X,I2,X) 

66 CONTINUE 
GO TO 39 

777 FORMAT ( 1H1) 

1 WRITE! 6,990) 

990 FORMAT ( 16H JOB IS COMPLETE) 

END FILE 6 
END FILE II 
ENO FILE 15 
STOP 
ENO 

SUBROUT INE LSQQUA< T, ALPHA, XY, I TO , L , S I GM A , F , BET A , GAMMA , SM, INN, IOT ) 
DIMENSION B(3,4),A<3,4),T(32>tXY(32) 

DO l 1-1,3 
DO l J= I , 4 
1 A ( I,J)=0.0 
L = I ITO+U/2 
A ( It n-ITO 
I NN= I T 0 
DE L SQ = 0 • 

DO 10 1*1, ITO 
RAPPA=XYI I >-XY( L) 

T AU=T I I >-T(L) 

A { 1 1 2 ) - A ( 1 , 2 ) + T A U 
AI l,3)=AUt3>+TAU**2 
A ( 1 , 4 ) = A ( 1 , 4 ) +K APP A 
A ( 2 t 3 ) =A(2,3)+TAU**3 
A ( 2,4)= A { 2,4)+RAPPA*TAU 
A ( 3 , 3 ) = A (3,3) +TAU**4 
A(3,4)*A( 3,4) +RAPP A*TAU**2 
10 DEISQ=RAPPA**2+0ELSG 

67 A( 2t 2)-A( 1,3) 

A( 2 , 1 ) “A { 2,4) 

A{ 3 , 1 ) =A ( 3,4) 

N = I 

D020 K= 1 1 3 
N = N+ 1 

DO 1 5 J*N , 4 

15 B(K y J)=A(K, J)/A(K,K) 

1 FIN-4) 12,21,11 
12 D020 I=N, 3 

D020 J = 1,4 

20 A( I, J)*A< I,J)-A(K, I)*B(K,J> 

21 GAMM A=B ( 3,4) 

BETA-B I 2,4)— GAMMA*B< 2,3) 

ALPHA *B( 1,4) -BETA*B< 1,2) -GAMM A*B< 1*3) 

N = A ( 1 1 1 ) 

SIGMA*! I DEL SQ-ALPHA*A I 1,4) -B6TA*A ( 2 , 1 ) -GAMMA* A <3,1)>/A<1,1)> 

I FI S I GMA ) 70, 71,71 

70 SIGMA-O. 

71 S IGMA=SQRT (SIGMA) 
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I F ( S 1 GMA-F >59,59,35 
35 D061 1 = 1,3 
006 1 J = 1 1 4 
61 A(I,J)=0.0 
DEL SQ = 0 . 0 
D065 1 = 1,1 TO 
RAPPA=XY< I I -XY( L ) 

TAU= T I I ) -T ( L ) 

r=KAPPA-ALPHA-BETA*TAU-GAMMA*TAU**2 

IF(R)2*3*3 

2 R=-R 

3 IF(R-SM*SIGMA)32,32,65 
32 A < 1 » 1 ) = A ( 1»1>+1. 

A ( 1 » 2 ) = A t 1 » 2 ) +T AU 
At 1 r 3 ) =A( 1 ,3) + TAU**2 
At 1,4)=A(1,4)+RAPPA 
A ( 2*3) = At 2»3)+TAU**3 
A(2,4)=A<2»4)+RAPPA#TAU 
At 3 1 3 ) =At3,3) +TAU**4 
At 3,4)=At3,4)+RAPPA*TAU**2 
DELSO=RAPP A** 2+DELSQ 

65 CONTINUE 

IFt At 1» l)-5 159,66,66 

66 IF<Atl,l)-N 167,59,67 
59 ITU- At 1,1) 

I QT= I TO 
RETURN 

11 WRITE! 6,7) 

7 FORMAT ( 30H THIS MSG. HAS EXCESSIVE NOISE) 
RETURN 
END 

SUBROUTINE LOBASNt TEM, I , A, RATE, U 
DIMENSION At 31) »TEMl 31) 

K=I-1 

IFt RATE.GT.O. )A(1)=A(1) + 1. 

I Ft RATE. LT.O. ) A t 1 ) = A < 1 )- 1 . 

00 10 J = 1,K 
L=0 

JJ=J+1 

DELTA = RATE*< TEMt JJ)-TEMtJ) ) 

11 X= A ( J J } —A( J ) 

L=L + l 

I F t L . GE . 1 00 ) GO TO 12 
IFt ABS(QELTA-X)-.500) 10,10,6 
6 I F ( DECT A ) A, 5 , 3 

4 At JJ)=A( JJI-l 
GO TO 11 

3 A(JJ)=A(JJ)+1 
GO TO 11 

5 IF<X)3,10,4 
10 CONT INU6 

12 RETURN 
END 

SUBROUTINE NORMAL ( X ) 

IFt XI 113, 114,115 

113 IFt ABS (X)-. 5)114, 114, 116 

116 X=X+1.0 
GO TO 114 

115 I F t ABS t X ) — . 5)114, 114, 117 

117 X=X-1.0 

114 RETURN 
END 

SUBROUTINE PYRDt NYR , JOA Y , NYMQDA ) 
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DIMENSION N< 24) 

DATA N<1),N<2),N(3),N<4>,N(5),N(6),N(7)*N(8>,N(9)»N(10>,N<11), 
1),N(13),N<14),N(15),N(16),NI17),N(18),N<19),N(20)*N(21I»NI22>» 
24) /o, 31, 59 ,90, 120,151,181 >212,24 3,2 73,304,334,0,31,60,91, 

>2,182,213, 244 ,274,305,335/ 


N( 12 

Ki t O * 


2)t 

3152 


A=N YR/4* 
L = A 


A = A-L 

IF< A ) 2 f 1 t 2 

1 J = 1 2 

2 DO 5 K= 1 * 12 


J+K 

I F ( JDAY„LE.N( M) > GO TO 4 
5 CONTINUE 
4 M=J+K-1 

NDAY=JDAY-N{ M) 

K-K-l 

NYMODA=( NYR* 10000 ) + i K* LOO ) + NDAY 


RETURN 

END 

SUBROUTINE ZERO ( N, 1 IN t AREA > 


DIMENSION D I V ( 7 ) 

INTEGER DIV 

L0GICAL*1 PLUS ♦ MINUS > ASK ♦ I C ( 10) * AR EA ( 80 ) __ k T _ . _ 

DATA PLUS?MINUS*ASK* I C ( 1 ) v I C I 2 ) t IC ( 3 ) * IC < 4 ) »IC(5)tIC(6) t IC ( 7 ) * I Cl 8 

X),IC(9),IC(10I/Z40,Z60,Z5C,ZF0,ZF1,ZF2,ZF3,ZF4,ZF5,ZF6,ZF7,ZF6,ZF9 


DATA DIV(1),DIV(2),DIV(3),DIV(4),DIV(5),DIV(6),D1V(7)/ 1000000, 1000 

XOO, 10000, 1000, 100,10,1/ 

ARE A ( 1 ) =PLUS 
I F ( I IN) 1,2,2 

1 AREA ( 1 ) =M INUS 
I 1 N= I ABS I I I N ) 

2 I J = 9— N 


K= 2 


J = N-1 

DO 4 1 = 1, J 
ITEMP=I IN/DIV* IJ) 

I F ( ITEMP.LE.9. ) GO TO 6 
ARE A ( K ) = ASK 


GO TO 5 

6 AREA ( K ) = IC ( ITEMP+l > 

5 1 !N=I lN-( ITEMP*DIV( I J) ) 
I J= I J + l 


K = K + 1 


4 CONTINUE 
RETURN 
END 


/* 


// EXEC LINKGO 
/ / GO . S Y SUDUMP 
/ /GO. FTO6FO0 1 
/ / GO . FT 09F00 1 
// 

//G0.FT11F001 

//G0.FT15F001 

//60.FT16F001 

// 

// 

//GO.OATA5 OD 
2 

FTMYR6 03 375 


DD SYSUUT=A 
DO SYSOUT=A 

DO UN I T = 2400-2 ,LABEL = ( ,BLP ) , V0LUME=SER=777777 , 

DC 8= ( »DEN=1»RECPM=U,BLKSIZ6=80, TRTCH=E T ) 

DD S YSOUT = A 

DD SYS0UT=B»0CB=(»RECFM=F»LRECL=80»BLKSIZE=8O) 

DD DUMMY,UNIT=2400,EABEL=( ,BLP) , VOLUME=SER=GEOSOT , 
DCB=( ,DEN=2,RECFM=FB,LRECt=65,BLKSIZE=2340>, 

D I SP= ( NEW, PASS ) 

* 

TWO=NO GRADE 

374 058 28 372 25 958 140 902 00 113 26 Oil 430 


* 


* 

* 


680205 


1 87 ? 



FTM1P 03 -.14056888-3 +.10000418+1 
FTM2P 03 +.00000000+0 +.00000000+0 
FTM3P 03 -.36754459-3 +.87306887-4 
FTM4P 03 +.00000000+0 +.00000000+0 
FTM1E 03 -.53746323-3 +.99990131+0 
FTM2E 03 +.00000000+0 +.00000000+0 
FTM36 03 +.82749814-4 -.52892510-6 
FTM4E 03 +.00000000+0 +.00000000+0 
GUI T 06 05 386 386 952-00 871-00 
QUI IE 05 +.20940915-2 +.10008733+1 
0U12E 05 -.22970585-5 +.00000000+0 
QU [ 3E 05 +.37754203-2 +.65052576-3 
QU I 4E 05 -.84940136-5 +.00000000+0 
0UI1P 05 +.10066065-2 +.99996738-0 
QU12P 05 -.35060033-4 +.00000000+0 
0UI3P 05 -.34792096-2 -.10548883-3 
0UI4P 05 -.29230690-4 +.00000000+0 
LIMAP6 06 390 390 443 28 696 52 
LIM1E 06 +.29623983-3 +.10003067+1 
LIM2E 06 +.00000000+0 +.00000000+0 
L1M3E 06 +.41370035-3 +.35355528-4 
LIM4E 06 +.00000000+0 +.00000000+0 
LIM1P 06 -.17288594-2 +.99924796+0 
LIM2P 06 +.00000000+0 +.00000000+0 
LIM3P 06 -.65251865-3 -.13613973-4 
LIM4P 06 +.00000000+0 +.00000000+0 
SNTAG6 08 397 397 983 00 112 00 
SNT16 08 8 . 0000000080 6.1000000061 
SNT2E 08 £.0000000080 6.0000000060 
SNT3E 08 6.0000000060 6.0000000060 
SNT4E 08 6.0000000060 6.0000000060 
SNT1P 08 6.0000000060 6.1000000061 
SNT2P 08 6.0000000060 6.0000000060 
SNT3P 08 6.0000000060 6.0000000060 
SNT4P 08 6.0000000060 6.0000000060 
NEWFL6 12 377 376 457 29 052 25 
NEW1E 12 -.19170106-3 +.99974483+0 
NEW2E 12 +.86701090-5 +.00000000+0 
NEW3E 12 +.21653203-3 +.36391400-4 
NEW4E 12 +.00000000+0 +.00000000+0 
NEW1P 12 +.90977247-4 +.10001052+1 
NEW2P 12 +.00000000+0 +.00000000+0 
NEW3P 12 +.00000000+0 +.00000000+0 
NEW4P 12 +.00000000+0 +.00000000+0 
WNKFL6 15 390 390 540-29 222 25 
WNK1E 15 -.53815660-3 +.10007333+1 
WNK2E 15 +.00000000+0 +.00000000+0 
WNK3E 15 -.10372921-2 -.27364891-3 
WNK4E 15 +.00000000+0 +.00000000+0 
WNK1P 15 +.38055918-3 +.10000534+1 
WNK2P 15 +.00000000+0 +.00000000+0 
WNK3P 15 +.15497939-3 +.19661635-4 
WNK4P 15 +.00000000+0 +.00000000+0 
J0BUR6 16 417 417 410-29 201 00 
JOB 1 E 16 +.49278891-3 +.99962462+0 
J0B2E 16 -.29092539-5 -.27345116-6 
J063E 16 +.35652040-3 +.67227993-3 
J0B4E 16 -.10846733-6 -.12167462-6 
JOB 1 P 16 -.26924000-2 +.10001142 + 1 
J0B2P 16 +.46664510-4 +.00000000+0 
J0B3P 16 -.36107291-2 -.52875261-4 
J0B4P 16 +.45694370-4 +.00000000+0 
ULASK6 19 383 383 654 00 960 00 


-.52082086-4 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
+.10000007+1 +.00000000+0 +.00000000+0 
+.00000000+0 +.00000000+0 
-.76668863-4 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
+.10001207+1 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
821 753 078-00 727 00 030 002 680205 

+.93641860-4 +.22458829-4 -.18011563-3 


+.67678972-3 -.30191208-2 
+.99998330+0 -.14789760-4 -.10148564-3 
-.22913735-2 +.10156293-2 
-.23974532-3 +.17607164-5 -.34724734-6 
-.43782727-3 -.27184685-2 
+.99976158+0 -.25381153-4 +.62359472-5 
-.21747670-2 -.56144730-3 
950 019 962 OO 981 00 257 882 680205 

-.92405700-5 +.00000000-0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
+.10002094+1 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
-.92915356-3 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
+.99854064+0 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
076 945 003 00 971 00 059 965 680205 

6.0000000060 6.0000000060 6.0000000060 

6.0000000060 6.0000000060 
6.1000000061 6.0000000060 6.0000000060 

6.0000000060 6.0000000060 

6.0000000060 6.0000000060 6.0000000060 

6.0000000060 6.0000000060 
6.1000000061 6.0000000060 6.0000000060 

6.0000000060 6.0000000060 
933 168 887 00 503 28 942 921 680205 

+.14185841-3 +.67414141-5 -.15397906-3 
+. 00000000+0 +. 00000000+0 
+.10002326+1 +.00000000+0 +.00000000+0 


+. 00000000+0 +. 00000000+0 

+.20317739-3 +.00000000+0 +.00000000+0 


+. 00000000+0 +. 00000000+0 
+. 10000000+1 +. 00000000+0 +. 00000000+0 
+. 00000000+0 +. 00000000+0 
067 870 107 00 779 28 976 Oil 680205 

+.80645285-4 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
+.10001356+1 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
+.19731019-4 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
+.99907664+0 +.00000000+0 +.00000000+0 
+. 00000000+0 +. 00000000+0 
051 092 586-29 850 00 937 866 680205 

+.19324889-3 +.33577390-4 -.21329130-5 
+. 00000000+0 +. 00000000+0 
+.1000Z847+1 +.27899943-6 +.51953200-6 
+. 00000000+0 +. 00000000+0 
-.56369850-4 +.11091456-4 +.30864940-5 


+.00000000+0 +.00000000+0 
+.99965713+0 -.58391001-5 +.50927149-5 
+. 00000000+0 +. 00000000+0 
937 438 059 00 497 00 076 921 680205 
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ULAie 19 £.20243968-2 £,1000160661 -.10393016-3 £.48169120-6 6.11496417-4 

ULA2E 19 -.40887407-5 6.0000000060 £.17572682-2 -.10486416-2 

ULA3E 19 £.18515669-3 -.44136583-4 6.1000155361 -.54333988-5 -.16219868-4 

ULA4E 19 -.74733460-7 6.0000000060 6.69647932-3 -.14363958-2 

ULA1P 19 -.95663269-3 6.1000280761 -.36318935-3 -.13821753-4 6.27188637-5 

ULA2P 19 6.22624058-4 6.0000000060 -.14888439-2 -.20507426-4 

ULA3P 19 -.11370458-2 6.67562270-5 6.1000372961 -.18158790-4 6.38524111-5 

ULA4P 19 -.41508788-4 6.0000000060 -.17580689-3 -.17410220-2 

QRQRA6 21 401 401 015 00 780 00 787 031 770 00 298 00 117 929 680205 

0R01E 21 -.29778306-2 +.10009156+1 -.22943741-3 -.61053700-5 -.10163772-3 

0RO2E 21 +.10541764-4 +.00000000+0 +.00000000+0 +.00000000+0 

0R036 21 +.16105135-2 -.65773801-3 +.10002713+1 -.40021681-5 +.94035050-4 

OR04E 21 -.63904369-5 +.00000000+0 +.00000000+0 +.00000000+0 

0R01P 21 +.00000000+0 +.10000000+1 +.00000000+0 +.00000000+0 +.00000000+0 

0R02P 21 +.00000000+0 +.00000000+0 +.00000000+0 +.00000000+0 

0RO3P 21 +.00000000+0 +.00000000+0 +.10000000+1 +.00000000+0 +.00000000+0 

0RO4P 21 +.00000000+0 +.00000000+0 +.00000000+0 +.00000000+0 

MADGA6 23 428 428 666 00 037 00 041 019 033 00 831 00 889 157 6B0205 

MAD1E 23 +.35305277-3 +.10005870+1 +.99905285-4 -.49983774-5 -.10061742-3 

MAD2E 23 +.16661472-5 +.00000000+0 -.13141496-2 -.21079430-3 

MA03E 23 +.29722606-2 +.33548552-3 +.10001234+1 +.93322190-6 -.91412230-4 

MAD4E 23 -.89181924-5 +.00000000+0 +.47489629-3 +.19854451-2 

MAO 1 P 23 +.29946892-2 +.99988668 + 0 -. 12674803-3 -.44706464-5 -.65049924-5 

MA02P 23 +.67850790-4 +.00000000+0 -.24783701-2 -.61427310-4 

MAD3P 23 +.23405773-2 +.80005626-4 +.10002585+1 -.82928921-5 -.54176817-5 

MAD4P 23 -.57118971-4 +.U0000000+0 -.16355670-2 -.17595554-2 

64031 572599 462097-142 136.620 6400301 

62491 574099 463308-566 136.978 136.595 

63241 570979 460790 315 136.234 

63541 570977 460788 315 136.233 

64541 570838 460676 355 136.200 

64641 570713 460575 390 136.170 

64761 572976 462402-248 136.710 

64861 571144 460923 268 136.273 

65041 571130 460912 319 136.231 

65091 573730 463010-461 136.890 

65165 573521 462841-402 136.840 

65321 574107 463315-567 136.980 

65391 573730 463010-460 136.890 

65421 570524 460423 044 136.125 

65511 570964 460778 319 136.230 

65601 572473 461995-106 136.590 

65811 570838 460676 355 136.200 

65931 572221 461793-035 136.530 

65981 572473 461996-106 136.590 136.390 

65982 571593 461285 142 136.380 

51011 573353 462706-355 136.800 

66081 570964 460778 319 136.230 

.66161 573227 462604-319 136.770 

66401 572096 461691 136.500 

66441 571341 461082 213 136.320 136.560 

66491 570838 460676 355 136.200 

66512 573353 462706-355 136.800 

66772 573353 462706-355 136.800 

66773 571836 461481 073 136.438 

66871 573227 462604-319 136.770 

67011 571844 461488 071 136.440 136.980 

67061 573227 462604-319 136.770 

67201 571232 460994 243 136.294 

67261 571844 461488 071 136.440 136.980 

67311 571970 461590 035 136.470 

67361 573227 462604-319 136.770 

67381 573081 462486-278 136.735 
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67403 572213 461786-033 136.528 

67404 571086 460876 285 136.259 

67405 571605 461295 138 136.383 

//G4DJC0BS JOB < G40032 3 1 1 F , T , G00043, 009040 ) , M I N, MSGLE VE L= 1 
// EXEC CTLCARDS 

//CTLCARDS.SYSUT2 DD SP ACE= ! CY L , t 1 . 1 > 1 

^Sl2 C 236 S ; S 8llO T l 1 0952 D 22 A -5oi41 1152 023-18-04 -10531 0104 008-1 1-32 008E 04 05 
t?421 06P 681101 150510 19333 0994-129 33-33 -09271 7554 179 19 1910A41006 

// EXEC FORTRAN, PARM= *OPT=0, MAP , BCD, DECK »L0AD' 

//SOURCE. SYSL I N DD 0 1 S P= ( N EH » P ASS ) 

//SOURCE . SYS If^ OD * 

INTEGER I GRADE , 1 YEAR 

INTEGER CSTA, BOUR ,M IN, SEC ,C ANT ,ASEC,BDATE, TIM, TIMC, TIMA, T,TT 
INTEGER HDUR, SAT, SA ID, HR , MN , B EG, E NO , HRR , MNN 

REAL*8 STAT 10 _ „ 

DIMENSION STATI0(12),KFA<12)»KFB112)»EWM(12),CLEWM!12),£WC(12),CLE 

1WC l 12) » EWFEQ l 12) , NSM! 12 > »CLNSM! 12 ) ,NSC t 12) »CLNSC l 12 ) ,NSFEQ( 12) ,NSF 

2 POI 1 2 ) » I ST AI 48 ) » I ANT ( 48 ) » Cl ( 48 ) ,C2 ( 48 ) ,C3 ( 48 ) ,C4 ( 48 J , C5 ( 48 ) , C6 ( 48 ) 

3 , C 7 ( 48 ) , C8 ( 48 ) ,KSAID( 50 ) t FREQ ( 50 ) ,K ST A ( 1 2 ) , EW F PU ( 12 ) 

DIMENSION ASTI 31 ) ,DATE( 12! »C0(48) 

DIMENSION ASTA! 3) , ARM0DA1 7 ) , I OUR ( 5) ,ISEC(6),LC0S(8) ,MC0S<8) 

DIMENSION BLANK I 80 ) 

DIMENSION SLZ14) ,SLQ(4) 

EQUIVALENCE I SL 2 , I EOVEft ) 

EQUIVALENCE (SLQ,INOVER) 

LOG I C AL* 1 BLANK 
LOG I C AL* 1 SLZ , SLQ 

LOG I C AL*1 ARMODA, I OUR, I S EC , LCDS , MCOS ,C ANT , PO, SPA 

DATA PO, SPA, L1,L2,L3,L4,L5,L6,L7/ZD7,Z40,ZC 1404040, ZC2404040, ZC340 
X4040, ZC 4404040 , ZC 5 404040, Z C 6404040, ZC7404040/ 

DATA F1»F2»F3, F4,F5,F6,F 7/ ZC 1404040 t ZC 2404040, ZC3404040 , ZC4404040 , 
XZC5404040, ZC 6404040, ZC7404040/ 

DATA FO t SPX , Ml »M2 , M3 ♦ M4 , M5 , M6 , M7 ,M8 ,M9/ZF04 04040 , Z 40404040 , Z F 14040 
X40, ZF 2404040, ZF 3404040, Z F 4404040, Z F 5 404040, Z F 6404040, Z F7404040, Z F8 
X404040, ZF9404040/ 

READ ( 5, 760) IYEAR, IGRADE 

760 FORMAT! X, 12, 6X, ID 

WRITE! 6,762 ) IYEAR, IGRADE 
762 FORMAT! X, 12, 6X, I 1) 

JL = 0 
JM = 0 

DO 35 J = l, 10 

C INPUT STATION CONSTANTS 

READ! 5,80) STAT 1 0 ( J ) ,KST A ( J ) , KFA ( J ) ,KFB ( J ) , EWM ! J ) , CL E WM ( J.) , EWC ( J ) 

1 , CLEWC ( J) ,EWFEQ< J) ,EWFPO( J ) , NSM ( J ) ,CLNSM( J) ,NSC < J ) ,CLNSC ( J ) , NSFEQ I 

80 FORMAT (A6»X,I2,I4,I4,3X,F4.3»F3.3*F4.3,F3.3,X,F4.3*F4.3,3X,F4.3»F3 
X.3,F4.3,F3.3,X,F4.3,F4.3,5X,I6) 

WRITE! 6, 580) ST ATI 0(J ) ,K ST A ( J ) , KF A ( J ) , KF6 ( J ) ,£WM( J ) ,CL EWM ( J ) , EWC ( J ) 

1, CLEWC! J ) ,EWFEQ( J) ,EWFPO(J) , NSM! J ),CLNSM(U) ,NSC!J),CLNSC(J), NSFEQ t 
2J) ,NSFPO( J) 

580 FORMAT (X,A6,X, 1 2 , I 3 , 1 3 , 3X , F4. 3, F4. 3 , F4. 3 , F4 . 3 , X, F4. 3 , F4. 3 , 3X , F 4. 3 , 
XF4.3»F4.3,F4.3,X,F4.3,F4.3,2X, 16) 

00 36 M= 1,4 
JL = JM + M 

C INPUT STATION COEFF. 

READ! 5,81) 1ANT!JL),ISTA(JL),C0(JL),C1!JL> ,C2(JL)tC3(JL),C4(JL) 

81 F0RMAT(4X,A1,X, 12, 5(X, E12.8) ) 

WRITE(6,811)lANT(JL),ISTA(JL),C0(JL),Cl!JL),C2(JL),C3tJL),C4(JL) 

811 FORMAT! 4 X, A 1, X, 12,5! X, £15.8)) 

RE AD (5, 581) C5!JL>»C6!JL),C7(JL>,C8(JL) 
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681 FORMAT ( 9X,4 ! X , E 15 . 8 ) ) 

581 FORMAT (BX,4!X,E12*B) ) 

WRITE! 6,681 )C5( JL ) ,C6( Jl ) ,C7(JL I ,C8(JL> 

36 CONTINUE 
JM= JM+4 

35 CONTINUE 

WRITE (6, 500 M KSTA! II) , I 1 = 1, 1 1 > 

500 FORMAK XtlKX, 12) } 

DO 37 J “ 1 ♦ 5 0 

C INPUT SATELLITE CONSTANTS 

RE AD ( 5,82) KS A I D < J ) , F REQ < J ) 

82 FORMAT! 15, 19X,F8.3) 

WRITE! 6,582>KSAID< J),FREQ! J) 

582 FORMAT! X, I5,19X,F8.3> 

I F ( KS A I D ( J ) ) 37, 38 , 37 

37 CONTINUE 

38 KSATCT=J-1 

399 I E0VER=0 
INOVER-0 

READ! 2,499,END=219, ERR=399 )SAT, AST! 1 ) ,C ST A, CANT , BOAT E , HOUR , M I N , SE 
XCtSLZ ( 4 ) , EWLOBE, EWRATE , EWACC, EWMER, EWCER,SLQ< 4 ) , SNLOBE , SNR AT E , SN AC 
XC,SNMER,SNCER, SIGA,AST(4) , I FIT, ASK 7) , I ENO , INNO , AST ( 5 ) , AST(6) 

499 FORMAT! l5,Al,I2,Al,X,I6,X,I2,I2,I2,Al t F6.3,F5*4,F4.3,A3,A3,Al,F6*3 
X,F5*4,F4.3, A3,A3,X, I2,A1,A1 ,A1,2A1,X,2A1 , A 1 , A 1 ) 

EWACC=EWACC/100. 

SNACC=5NACC/100. 

IF(AST!7)*NE*SPX)G0 TO 399 
DO 490 1-1,12 

IF!KSTA(L )*EO*CSTA)GO TO 302 
490 CONTINUE 

302 IF!CANT#EQ. PO)GQ TO 4B9 
ANT =46 • 

GO TO 488 
489 ANT = 5 7 . 

488 DO 487 M=l,50 

IF! SAT.EQ.KSAID! M) )G0 TO 307 
487 CONTINUE 

307 IF! AST!4) .EO*F1)GO TO 401 
IF!AST(4).EQ*F2)G0 TO 402 
IF! AST! 4) .EQ*F3)G0 TO 403 
IF( AST<4) .EG.F4JG0 TO 404 
IF! AST!4) ♦ E0,F5 ) GO TO 405 
IF(AST!4)*EQ*F6) GO TO 406 
I F ( A $ T ( 4 ) •E0,F7)G0 TO 407 
GO TO 399 

401 T = 1 * 

GO TO 400 

402 T = 2 • 

GO TO 400 

403 T = 10 • 

GO TO 400 

404 T = 20. 

GO TO 400 

405 T = 60 • 

GO TO 400 

406 T = 120 • 

GO TO 400 

407 T = 600 • 

400 A=EWLOB£ 

B=SNLOBE 
1 GO- 1 F IT 

330 IF ( IGO.EG.Ml )G0 TO 310 
IF! I GO* E0*M2 ) GO TO 311 
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IFl IGO.EQ.M3IGO TO 312 
1 F t IG0.EQ.M4IG0 TO 313 
I F ( I GO. EQ • M5 ) GO TO 314 
IFl IG0.EQ.M6 )GO TO 315 
IF I I GO. EQ • M 7 ) GO TO 316 
I F ( IG0.EQ.M8IG0 TO 317 
I F ( IG0.E0.M91G0 TO 318 
IFl ! GO. EQ. L 1 ) GO TO 321 
IFl I GO. EQ • L2 ) GO TO 322 
IFl IGO. EQ.L3 )GO TO 323 
IFl 1GO.EQ.L4IGO TO 324 
IFl I GO. E Q • L5 ) GO TO 325 
IFl I GO . E G . L6 ) GO TO 326 
IFl IGO.EQ.L7IGO TO 327 
IFl IFIT.EQ.SPX) GO TO 320 
K T = 1 0. 

GO TO 408 

310 KT = 1 . 

GO TO 408 

311 K T=2 • 

GO TD 408 

312 KT=3. 

GO TO 408 

313 KT=4. 

GO TO 408 

314 KT = 5. 

GO TO 408 

315 KT = 6 . 

GO TO 408 

316 KT =7. 

GO TO 408 

317 KT=8. 

GO TO 408 

318 K T = 9. 

GO TO 408 

320 KT= 1 0 . 

GO TO 408 

321 KT=1 1 . 

GO TO 408 

322 KT = 1 2 . 

GO TO 408 

323 KT= 1 3 . 

GO TO 408 

324 KT = 14. 

GO TO 408 

325 K T = 1 5. 

GO TO 408 

326 KT = 16. 

GO TO 408 

327 KT=1 7 . 

408 TT = T<=KT 

IF(SLZ(4).EQ.SPA)G0 TO 26 
IE0VER=IE0VER-64 
I ER= 5 EOVE R / 3 
EWR= IER 

EWRATE=EWRATE+SIGN( EWR.EWRATE ) 
EWA=( IEOVER-IER+31/100. 
EWACC=EWACC+S IGNI EWA t EWACC > 

26 IFISL0I4) .EQ.SPAIGO TO 27 
I NOVER= INOVER-64 
1 Nft= I NOVER / 3 
SNR=INR 

SNRATE=SNRATE+S1GNISNR,SNRAT6) 
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SNA= < IN0VER-iNR*3 )/100. 

SNACC=SNACC+SI GN < SNA, SN ACC ) 

27 IYR=60ATE/10000 
1 D ATE = 6DAT E 
CALL DCOUNT ( BDATE ) 

WRITE ( 6, 498) SAT, ASH l ) , CSTA , CANT ♦ BDAT E ,HQUR , M I N ,$EC , SLZ ( 4 ) ,EWLabE T 
XEWRATEt EWACCtEWMER, tWCERf SLGU) , SNLOBE , SNR ATE , SN ACC , SNMER , SNC E R , S I 
XGA t AST ( A ) f 1 F I T 

498 FORMAT ( X, 15, A I, I 2 , A I , X t I 6 ,X , I 2 » I2,I2tAl,F6*3,X,F5*4tX,F4*3,XtA3,A3 
XtAl,F6*3,X,F5.4,X r F4.3*X>A3f A3,X t J2 , A I f A I ) 

A A= A- ( EWRATE^KT ) + < EWACC*<KT**2 ) ) 

9B = 8*~ ( SNRATE*KT>+( 5NACC*(KT**2 ) ) 

AC-A-M EWRATE*KT )+tEWACC*(KT**2 ) ) 

BC=B+( SNRATE*KT > + < $NACC#(KT**2 ) ) 

DO 21 I M= 1 1 40 

IF(CSTA.EQ*ISTA( I M ) ) GO TO 24 
21 CONTINUE 

24 IF l C ANT *NE • PO ) GO TO 25 
I M= I M+2 

25 PI =6*2831853 
AG=EWLOBE 

BO = SNLOBE 

CC=AO/< f FREGI M ) / 1 36* )*ANT) 

DD=BO/( ( FREQ(M) / 136 . ) *ANT ) 

IF(CANT*EQ*PO)GO TO 40 
IF ( ABS( CC ) *GT * *G87 16 ) GO TO 52 
IF< ABSU)D)*GT**64279)GQ TO 52 
EE-B0**3 

GO TO 41 f 

40 EE=A0**3 

IF* A6S(CC)*GT*.64279)GQ TO 52 
IF f ABS ( DD ) * GT **0 8716) GO TO 52 

41 A = < C 0 < I M ) + C 1 ( IM)*A0)+(C2( lM)*8U>+(C3< I M I * A0*60 ) + ( C4 ( I M ) *AD**2 ) + < C 5 
X< IM)*B0**2)+<C6( I M ) *EE ) + ( C 7 f I M ) * S I N ( AO*P I ) )+(C8< I M ) *COS ( AO*P I )) 

GO TO 53 

52 A=(CO{ IM) + C1< I M ) * AG ) + ( C 2 ( IM)*B0)+(C3< I M ) * AO*BO ) + ( C7 ( i M ) *S I N ( AO* p I ) 
X ) + ( C 8 ( I M ) *COS { AO*P I ) } 

53 A0= AA 
BO=BB 

CC= AO / ( < FREQ( M) /X36* )*ANT ) 

0D = BO/ { ( FREQ( M 1/136*)* ANT) 

IF<CANT.EQ.PO)GO TO 42 

IF< ABSfCC )#GT**08716) GO TO 54 

I F < ABS(DD) .GT..64279JG0 TO 54 

EE=80**3 

GO TO 43 

42 EE=AO**3 

IF( ABS(CC) .GT.*64279)G0 TO 54 
IF( ABS(DD).GT..087I6)G0 TO 54 

43 B= ( CCM I M ) +C 1 ( IM)*A0)+<C2< IM)*60)+<C3( l M ) * AO*BO ) + ( C4 i I M > * A0**2 ) + ( C 5 
X< IM >*B0**2 ) + (C6{ IM)*EE)+(C7( I NU *SI N( AO* PI ) ) + (C8( I M ) *COS < AO*P I ) ) 

GO TO 55 

54 Bs<CO< 1M)+C1< IM)*A0)+(C2( IM)*B0)+(C3( I M ) * AO*B0 ) + < C 7 i I M ) *S I N < AO*P I ) 
X)+(C8< IM)*COS( AO*PI) ) 

55 AO = AC 
BO = BC 

CC=AO/( ( FREQ(M)/L36* )*ANT ) 

DD=BO/< < FREO(M) / 1 36 • )*ANT ) 

IF(CANT«EO* PO ) GO TO 44 
I F ( ABS < CC ) • GT • *08716) GO TO 56 
IF( ABS(DD)*GT**64279) GO TO 56 
EE=BG**3 
GO TO 45 
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a=a 

3=3V 
9 = VV E9 

( I Id*09)S03*(WI ) 83 )+ ( X 

( ld*G9)NIS*(WI 1 13 ) + ( 09*09* ( W I >£3>+<09*<WI )Z3)+(0V*<WI ) 1 3+ < W I )03 ) = d Z9 

£9 01 09 

< ( Id*09)S03*( WI ) 83 ) + ( ( ld*0fl >NI S* ( W I ) 13 ) + ( dd* < W 1 ) 93 ) + < Z**09* ( W I )X 
53)+<Z**09*(WI >93>+<09*0V*(WI >£0>+<09*(WI > Z3) + < 0V* < WI )I3+(WI >03)=d IS 

Z 9 01 09<9I180**19* ( 00 ) S8 V ) d I 
Z9 01 09(61Z99‘*19*(33)S8VMI 

£**OV=dd OS 
tS 01 09 
£**09=dd 

Z9 01 09(61Z<79**19*(00)S9V)dI 
Z9 01 09 (91180**19* (33>S99)dI 
OS 01 O9(0d*03*lN93)dI 
(1NV*(*9£1/ (W)03dd) )/ 09 = 00 
( 1NV* ( *9£I/(W)Ci.3dd) )/0V=33 

39=09 
3V=0V 19 

( ( ld*09 )S03*(WI >83)+<X 

( I d*09 ) N1 S* l W I ) 13) +•( 09*0V ^ t W 1 )£3 ) + ( 09* ( WI ) Z3 ) + ( 09* ( WI) 1 3+ ( WI >03 ) = 3 09 

19 01 09 

( ( Id*09)$03*(Wl ) 83 ( + H Id *09 )NIS*(WI )13)+(dd*(WI ) 93 ) + ( Z**09* t W I )X 
S3 ) + ( Z **09* ( W I ) 93 )+< 08*09* (WI )£3)+<09*(WI )Z3)+(09*(WI ) I 3+ < W I >03 ) = 3 69 

09 01 09 (9ti80**19*{00)S8V)dI 
09 01 09(61Z99**19* (33)S89)dl 

£**0V=dd 89 
69 01 09 
£**08=dd 

09 01 09 (61Z99**19*( 00 ) S9 V ) d I 
09 01 09(9T180**19*( 33 ) S9V ) d I 
89 01 09(Gd*03*lN93)dI 
( 1NV* ( *9EI/(W)039d > ) /09=aa 
(1N9*( *9El/ (W)03t)d ) )/0V = 33 

99=09 
99 = 09 65 

( { I d*09 ) S03* t WI )83 )+ t X 

( ld*09)NIS*(Wl ) 13 ) + ( 00*09* ( W I >£3>+<09*(WI )ZO)+(OV*(W! )I3+(WI )03)=0 85 

6S 01 09 

( ( I d*09 ) S03* ( W 1 (831 + < < I d*Q9 )Nl S* < W l >13)+<dd*(W! 1 93 ! .+ ( Z**09* ( WI )X 
53) + < Z**09*< WI )93)+< 08*09*1 WI ) £ 3 ) + ( 08 * ( W I) Z3 ) + ( OV * I W I )I 3+ ( WI )03 ) =0 19 

95 01 09(91180**19* <aO)S9V)d! 

85 01 09<61Z99**i0M33)S99)dI 

£**OV=dd 99 
L*7 01 09 
£ **09 = d d 

85 01 09(6iZ99**I0*(Q0>$89)dI 
85 01 09(91180* *19* ( 33 )S9V )dl 
9*7 01 09(0d *03*1NV3 >dl 
I +W I =W I 

(lNV*(*9£T/(W)03ad) )/09=00 
( 1N9* t * 9£ I / (W )038d ) 1/09=33 
3903NS =08 
3903M3=09 15 
< ( Id*D9 )S03*(WI ) 83 )+ ( X 

( Id*09 ) N IS*< W I ) 13 ) +( 09*0V* < WI )E3)+<09*(WI)Z3)+(09*(WI)T3+<WI )03)=3 95 

IS 01 09 

( ( I d*OV ) S03* ( W I I 83 > + < ( Id*09)NIS*(WI )13 ) + ( 33* < WI ) 93 I + ( Z**09* ( W I >X 
SO > + ( Z**09*( WI )93>+<08*09*(WI ) £3 ) + ( 08* ( W I )Z3)+(09*(WI II3+(Wl)03)=3 59 

95 01 09(91180* *19* (00 )S9V )dl 
95 01 09( 61Z99* *13* ( 33)599 >dl 

£**09=33 * 7*7 



BB = E 
BC = F 

TIM=< (H0UR*3600)+!60*MIN) )+SEC 
T 1 MC = T I M+TT 
TIMA=T IM-TT 
IF!TIMA)28,29,29 

28 T1MA=86400+TIMA 
BDATE=BDATE~1 

29 I A0=2 
I BG = 3 

C MAX 1 UM OBSEKV AT IONS 

486 ACOS = AA/( ( FREQ! M > / 136 . > *ANT ) 

BCOS=BB/( ( FREOtM 1/136. >*ANT) 

1AC0S = ACGS* LOOOOOO+ .5 
IBCOS=BCOS*1000000+«5 
CALL ZERO ( 8 T I A COS * LCUS I 
CALL ZERO ( 8* I BCOS»MCUS ) 

IF l T IMA-86400 1303,303,304 
304 BDAT E = BO AT E+ 1 

T 1MA=T IMA-86400 
303 HOUR=T IMA/3600. 

MIN=< ( T1MA-I HGUR*3600, ) )/60. ) 

SEC = I T IMA-< ( HOUR* 3600 . )+( M IN*60. ) ) ) 

HGUR=HOUR*100. 

B OUR = BOOR +M I N 
ASEC=SEC*1000. 

CALL ZER0!5,BGUR, IOUR) 

CALL ZERQ(6,ASEC, I SEC ) 

CALL PYRD( IYR»BDATE»YRMODA ) 

CALL ZERO! 7, YRMODA , ARMODA ) 

WRITE! 6,21 7)SAT,STATI0!L I t ARMOOA, I OUR, I S EC , L COS , C ANT , I AO 
WRITE! 6,217)SAT,STATI0!U , ARMOOA , I OUR » I SEC »MCOS,C ANT , I BO 
WRITE! 15,218)SAT,STATI0(L ) , ARMODA, I OUR , I SEC » LCOS ,C ANT , I AO 
WRITE! 15,218) SAT, ST AT 10! L ) , ARMODA , I OUR , I SEC , MCOS t C ANT , I BO 
484 ACOS=A/( (FREQ!M)/136. )*ANT) 

BCOS=B/( ( FREQ! M) / 136. )*ANT ) 

IAC0S=AC0S*1000000+.5 
IBCOS=BCUS*1000000+.5 
CALL ZER018, IACOS,LCOS) 

CALL ZERO! 8, IBCOS,MCOS > 

BDATE= I DATE 

CALL DCOUNT ( BDATE ) 

HOUR=T I M/ 3600. 

M I N= ( ! T I M -(HOUR "+ 3600.) )/60. ) 

SEC = < T IM -! (HOUR* 3600. )+<MIN*60. ) ) ) 

BOUR=HOUR* 100 . 

BOUR = BOUR + M IN 
ASEC=S6C*1000. 

CALL ZERO ! 5 , BOUR , I OUR ) 

CALL ZERO! 6,ASEC, ISEC) 

CALL PYRD! IYR, BDATE, YRMOOA ) 

CALL ZERO! 7, YRMOOA, ARMODA ) 

WRITE! 6,217 ) SAT, STAT 10! L> , ARMOOA, I OUR , 1 SEC ,LCOS,C ANT, I AO 
WRITE! 6,217) SAT, STAT 10! L ) , A RMODA , I OUR , I SEC ,MCOS ,C ANT , I BO 
WRITE! 15, 218) SAT, STAT 10! L) , ARMOOA, I OUR, I SEC ,LCOS, C ANT , I AO 
WRITE! 15*2181 SAT, STAT I OIL I ♦ ARMODA, I OUR, I SEC, MCOS, CANT, I BO 
ACOS=AC/( (FRE0!M)/136. ) * ANT ) 

BCOS=BC/I !FK£Q(M)/136.)*ANTI 
I AC OS -ACOS* 1000000 + . 5 
IBCOS-BCOS* 1 000000+ . 5 
CALL ZER0!8, JACOS,LCOS) 

CALL ZERO! 8, IBCOS,MCOS) 

BDATE= IDATE 
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CALL DCOUNT ( BDATE ) 

IF(TIMC-86400) 305,305,306 
306 BD AT E = BOAT E+ 1 

T I MC=T I MC -86400 
305 HOUR = T IMC/3600. 

MIN=< ( T I MC- ( HOUR* 3600 • ) )/60. ) 

S EC = ( T IMC-( ! HOUR* 3600. ) + < MIN*60. ) ) ) 

BOUR=HOUR*100. 

BOUR = BOUR+M IN 
ASEC=SEC*1000. 

CALL ZERO! 5, SOUR, IOUR) 

CALL ZER0!6,ASEC, ISEC) 

CALL PYRD( I YR , BDA T E , YRMODA ) 

CALL ZERO! 7, YRMODA, ARMODA) 

WRITE! 6,2L7)SAT,$TAT1Q(L> , ARMODA, iOUR , 1 SEC ,L COS, CANT , I AO 
WRITE! 6,217 ) SAT, ST AT 10 (L), ARMODA, IOUR, ISEC , MCOS , C ANT , I BO 
WRITE! 15,2 18 )$AT, STAT10! L) , ARMODA, IOUR, I SEC,LCOS,CANT,I AO 
WRITE! 15,218)SAT,STATI0!L),ARM00A, IGURt I S EC , MCOS t CANT t I BO 
I AO-9 

IFICANT.EQ.POJGO TO 353 
Z OBE=EWLOBE 
RATE=EWRATE 
ZLOB=SNLOBE 
Z RAT-SNR ATE 
GO TO 354 

353 ZOBE=SNLOBE 
RATE=SNRATE 
ZLOB-E WL OBE 
ZR AT = EWRATE 

354 ZB = ! !“ZGBE I/RATE )*T 
I B = Z B 

T I MA = T I M+ I B 
Z A= ( ZR AT*ZB ) / T 
ZA=ZA+ZLQ6 

ACOS- Z A/ ( <FREQ! M ) / 1 36 ♦ ) *ANT ) 

I ACOS= AC OS* 1000000+ .5 
CALL ZERO! 8t lACOStLCOS) 

BDATE= IDATE 

CALL OCOUNT! BDATE) 

IF(TIMA-86400) 350 t 350 ♦ 351 

351 80 ATE=BDATE+ l 

T IMA=TIMA-86400 
350 HOUR=T IMA/3600 

MIN=( < TIMA- (HOUR* 3600. ) )/60. ) 

SEC=(TIMA-( l HOUR*3600.)+!MIN*60) ) ) 

B OUR -HOUR* 100. 

BOUR=BOUR+MIN 
ASEC=SEC* 1000. 

CALL ZER0(5tB0URt IOUR) 

CALL ZER0(6t ASECt ISEC) 

CALL PYRD( I YR, BDATE , YRMODA ) 

CALL Z ERO ! 7 t YRMODA t ARMODA ) 

WRITE! 6 1 352 ) 

352 FORMAT ( 49H PASS CROSSOVER TIME AND ZENITH ANGLE IN DIR. COS 
WRITE! 6t 217) SAT ♦ ST AT 10! L ) , ARMODA 1 1 OUR , I SEC t LCOS t CANT 1 1 AO 

217 FORMAT! X t 15 , X, A6, 7A l , 5A 1 , 6A 1 , 28X, 8A 1 , 3X, A1 , 1 1 ) 

218 FORMAT! X t 1 5 t X t A6 1 7A 1 1 5A 1 1 6A 1 , 28X , 8A 1 1 3X t A1 1 1 1) 

GO TO 399 

219 DO 340 1=1,80 
BLANK! I ) =SPA 

340 CONTINUE 

WRITE! 15,220) ! BLANK! I ) ,1=1,80) 

WRITE! 15,220)! BLANK! I), 1=1,80) 
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220 FORMAT ( 80A 1 ) 

END FILE 15 
REWIND 15 
1 STOP 
END 

SUBROUTINE PYRD { NYR , J DAY , NYMODA ) 

DIMENSION N(24) 

DATA Nm,Nm,N(3),N{4),N(5),N(6),N(7),N<R),N<9),N{10),N<ll>,N<12 
n,N(l3),NU4>,NU5),N<16>,N<17>,N(l8),N(19),N<20),N(21),N(22),N<23 
2), N( 24 1/0,31,59,90,1 20, 151,181 ,2 1 2 , 243 , 273 , 304 , 334 , 0 , 3 1 , 60 , 9 1 T 1 2 1 , 
3152, 182, 21 3, 244, 274,305,335/ 

J = 0 

A=NYR/4* 

L = A 
A = A— L 

IF( A>2,1,2 

1 J-12 

2 DO 5 K “ 1 , 1 2 
M-J+K 

1 F i JDAY * L E • N ( M ) ) GO TO 4 
5 CONTINUE 
4 M=J+K-1 

NDAY = J DA Y-N ( M ) 

K=K-1 

NYMODA=M NYR* 10000 } + < K* 100 )+ND AY 

RETURN 

END 

SUBROUTINE DCOUNT* IOATE< 


DIMENSION IA$12< 

DATA I A% 1<, I A$2< t I AS3C, I A£4<, IA*5<, IA36<, IA37C, I A^8< , I A%9< , 
1IA%10<, IAS1K, I A212< 

1/0,31,59,90,120,151, 181,212,243,273,304,334/ 

JSUM#0 

IYR#IDATE/10000 
IMO#2IDATE-£IYR*10000«/100 
I DA #IDATE-^IYR*1 0000<"!£ I M0*1 00 ) 

JSUM#JSUM£I ASIMQCfc IDA 

I SUM#0 

ICO^O 

Jin 

IRD A# 365 

1 IF^ICO.EQ* 0<GO TO 4 
I SUM# ISUM&IRDA 

J# J El 

I J * £0 * 4<G0 TO 2 
IFSJ*LE*4<G0 TO 3 
J#1 

I RDA#364 

2 I RDA# I RD AE 1 

3 ICO#ICO-1 
GO TO 1 

4 LYR*0 

F YR# I YR 
S YR# 1 YR/4 

IF$FYR/4,0.NE*SYR<GD TO 5 
I F ( IM0.LT,3) GO TO 5 
LYR#LYRfil 

5 I DATE# I SUM6USUM SL YR 
RETURN 

6 STOP 
END 
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SUBROUTINE Z E RO I N , II N , AR E A I 
DIMENSION 0 I V( 7 > 

INTEGER OIV 

LOG I CAL* l PLUS , MINUS, ASK » IC< 10) , ARE A (80) 

DATA PLUS, MINUS, ASK, IC< 1) , IC(2), IC<3), ICI4),IC<5>,IC(6>,IC<7),IC<8 
X) , IC(9) , ICI 10 ) / ZAO »Z60,Z5CtZF0,ZFl,ZF2»ZF3»ZF4,ZF5*ZF6,ZF7*ZF8»ZF9 
X/ 

OATA DIV( 1) ,DIV(2) ,DIV(3) ,0 1 V ( 4 ) » D 1 V ( 5 ) » D I V ( 6 ) ,D 1 V 1 7 ) / 1000000 , 1 000 
XOO, 10000,1000, 100,10,1/ 

AREA! 1 ) =PLUS 
I F { I IN)1,2,2 

1 AREA! 1 )=MINUS 
I I N= I A8S ( I IN) 

2 1J=9-N 
K = 2 

J = N- 1 

DO A 1=1, J 
I TEMP= I IN/DIVt IJ ) 

I F ( JTEMP.LE.9. IGO TO 6 
AREA! K ) = ASK 
GO TO 5 

6 AREA! K ) = IC ( ITEMP+1) 

5 I1N*IIN-UTEHP*0IV( IJ) ) 

IJ=IJ+1 
K = K + 1 

4 CONTINUE 
RETURN 
END 

/* 

// EXEC LINKGO 
/ /GO. SYSUDUMP DD SYSOUT=A 

/ / GO » FT02F00 1 DD OSNAME=£CTL»DISP=(OLD, DELETE ) 

//G0.DATA5 DD OSN AME = M I NCON, UN I T= 23 1 A , VOL UME = SER = G2NC S9 , * 

// DISP=10LD,KEEP) , DCB= ( ,RECFM=F ,LRECL=BO,BLKSI ZE=B0 > 

// GO » FT 1 5F00 1 00 S YS0UT=B , DCB= ( , RECFM= F , L RECL= 8 0 , BLKS I Z E=80 ) 

/* 
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Appendix E 

QUADRATIC FLOW DIAGRAM 


Presented on the following pages is a flow diagram of the quadratic preprocessing pro- 
gram. Both main program sections corresponding to the cubic MIN-B and OBS-B programs 
are displayed as are the subroutine flow diagrams. The listings from which these diagrams 
were taken are printed in appendix D. The descriptions in sections 4, 5, 6, and 7 of volume 
1 will serve to explain the functions of this, the quadratic, as well as the cubic preprocessing 
program. 
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£ 

< 00 35 J=l ■ LO > - - - - O A 


|c '"inp'u't sTRf I ON constants"! 


i 


REFIOI 5.80) STATlOl J) .K5TAI J) .KFRl JJ , KF8 ( J ) , FWrU J) .CLEWftl J ) .EWCl J) 
.CUtMClJ) .5WFEQC J) . EWFPG ( J ) ,NSf1( J ) .CLNSfU J 1 .NSCt J) -CLNSCt J ) .NSFCQt 
JJ -NSFPO(J) .OATt(J J 

; 


WR[TEI6»S80)STAri0tJ) .KSFAIJ I .*FA( JJ .KFQ[ J J .EUfU JJ .CUUMi J J .EWCT J ) 
.CLEWCNJ .EWFEQN).EWFPQ(J) .NSPIIJJ .CLNStlt JJ .N5C( JJ .CLNSC! J) .NSFEQt 
J ) .NSFPQ l J J .OATEN J 

M 3 

1 


FORMAT! R6. X , L2. H ► 1 4 .3X .f4 -3 .F3 .3 .f4 . 3 .F3 .3 .X .F4 .3 .F4 .3 .3X .f4 .3 .F3 
.3.F4.3.F3.3.X.F4 .3.F4 -3.5X.16) 
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DO TQ 6Q4 



QflTfUK J = OftTR(K )-BlN 








CNSF2-D/1000. 

0=0AffU36UlC)0*0ATfi(37)»10*C)flTfit3ej 

CNSF3=0/1000. 

D=Oftrfl( 50 l*iOO+ORTfl( 51 52 J 
CNSF4=0/10D0. 

O=0PTflf 62 )*IO04-Ofllfl( 63 )*10*0RTFU64 ] 
CNSF5r0/iOOO. 

. D-QRTR(29}«10»QflTfl(3Q > 
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10 lf2=CNSf 3-CNSf 2 
J01F3=CNSF4-CNSF3 
IDIF4=CNSF5-CNSF4 

CNSfl=CNSf3*({<9.*( !0[F3-[0IF2M-‘(3.»f r0[F4-I0IFl m/35* I 


CABLE LENCTH INEQUALITIES 


CEWN=( tCLEHNlL)/ .846 )*< 136 *S-FRE0( ft ) U + CEWI1 
CEUC=<(CLtWCfU/.846 J*( i 36 , S-fftEQ< (1 M NCEwC 
CNSN=( l CLNSMIL )/ -8 46 I x < 1 36 . S-fREQt H ) mCNSrt 
CNSC = ( f CLNSCI L 1 / .8 46 )*( l36.S-FREQ(fl))) ♦CNSC 
UKll£[ 1 1 ,636 ) 


1 FOfef1ftT{S5H CALIBRATED PHASE ft E A 0 1 N D5 » 5 POINT FETTED FINE READINGS ) 


CALLBRATEO 2 EN 1 TH 


FOftrtflTUIH 

CEwn 

CEHC 

cnsh 

CNSC 

CEWf 

i CN5F J 





J 


WRITE! ll.lSOjCEWfl.CCHC.CNSn .CNSC.CEWFI .CNSFl 

! 50 5 

i 


FOR HATE 6 1 X« F 10 .6 ) ) 


WRfTEf U.640 ) 


FORPtPT! 74H HRfINSC EWFINE EWflEDH 
NSHEOfl NSCORS ) 


EHCORS NSFINE 


REPO DATA M1TH FORflAT CHECK***** 
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r&o to 


124 _> C* 


m 


MJ 



| DO, TO 124 


I 
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217 











218 











| DflTflt J J =DfiTfl( JJ-QIN I 

1 f ■■■ " 1 


GZA 4 , 

| CONTINUE J 

j i v 

< 00 625 J= I 9 .25 > 




[QfiTFU J ) -ORTP( J J -6 Yn | 


62^ 4 , 

| CONTINUE! 


4 
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□ 0 630 J— 54 . 56 > - - - O 35 


inOfiTRt JJ-BIN.GT.9) 


ENTER AFTER TRUE 
T PATH STATEMENT 


GO TO 621 


IFtORTAt J)-BIN.LT«01 


-- — ENTER AFTER TRUE 

T PATH STATEMENT 


GO TO 621 


| DATA* J)=DATfi( Ji-8IN | 


l 

| CONTINUE | 


7 

< 00 631 , 

J- 58.64 > 

J 


I Ft DATA! J) 

i 

-sin.gt^T' 

T 

[ GO TO 

&r>& 


^1F(0RTRU)T 

-0IN.LT.O) 

< 

T 

| GO TO 

621 >tH 

1 OATAt J t-DRTR( J J-BIN | 

~ * 631 i 

2 

{CONTINUE 1 


ENTER AFTER TRUE 
PATH STATEMENT 


ENTER AFTER TRUE 
PATH STATEMENT 





1 
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FN5F{KJ = ifNSffK.l-( *0S« [0-1 FS»NSF3 ) 

IDlFlsS[02-SlGI 
rOIF2=SrC3-SIQ2 
10 1 P3=:S r G-t-5 I C3 
[01 FlsSIGS-Sl 04 

SlG0tK) = SlC3*MI9.«l IDIF3-1DIF2) M9.«t I01F4-I0IF1 ) 1 1/35 1 


URITEU I .151 )H0R0(«J.rtIN0m,SEC0<K).EEUF<K) .£UM0(K) .EwCO(K) ,£NSF( 
K I .NSrtDiKJ .NSCDl K \ 
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227 







228 













PH 


B3 

-807 &_ 


TlntKSM )=TintK5»l 1*86400 • 


[GOTO 806 



i I C- 1 C» ] | 

__2 

[GO TO 20 
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URlTlt 1 1 , 55 ) 
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[call LSQQuflTrTR7flLPHP . eump ,k >fi io .sir .sl . Ewns .EuncVsn ,ewr , eop ) j 

1 ^ 


4 

EHnflrflLPHfl+EHflOtniD I 

Ewnr=Timni0J-.i5 

Sfl=SIfl 

WR 1 TE ( 1 1 .643 J 


_£12 £ 


FORflflK 03H ALPHA - E WM H[D.PT. RATE SlCtlfl 

beta oflnnR ) 

1 


f HfU TE( It ,1S2) ALPHA. HE 

0 »RPTE - SIR . EWfIB rEHMC | 


_L£2 4 


(>osnftT(x.FMV6.xri6«x.4(Fi4.eTxTT 


T'k^jk "1 


I CALL 'LSOOUflmn.ftLPHP.EHCD.K.niD.Stfl.SL.EMCB.EWCC.Sn.ENB.EOB] ! 

I 




EUCA=ALPHA«-ERCD( HID) 1 

EHcr=rimniD j^.05 1 

SB=S I A 

HRtTEt 11.6441 





£14 5 

Z 



FORJ1AT ( 03M 
BETA 

PLPHA.EUC 1 

GAMMA J 

MD.PT. RATE 

SIGMA 


v 
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CALL LOBflSNITtn.K.EEHF.RATE.ITO) I 
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ino-sir«ioqFT».s 1 


f zn 2 , 

[ CALL ZERO 1 3 . 1NQ * l END ) \ 

" — Pt 


IORYDI l ) = IORYD(f1IOJ 



| WRITEt i 1 *642 ) 

_J 



642 < 

7 ... 



FORHATf 83H 
9ETP 

ALPHA. FWF 
GANflfl ) 

n j □ »PT . 

RATE 

SlOflfl 



ENTER RF TER TRUE 
PATH STATEMENT 


[ CALL L08fiSNm ~n,K> NSCQ.RPTEaT0Tl 
Ol 


2 
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LF(AB5(RATE) -L£. -05) 


ENTER AFTER TRUE 
PATH STATEMENT 


RAFE=0 «0 
WR1 TE( 11*647) 
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f10< 1 ) .ftp .WSCD1 n.PG 




















DE3=flB3-EA83 
FG3=BC3-E8C3 
COR£ = OE^-DE3 
COf?N=FG»F03 
■ COREF=(*NT/7>5)»C0RE 
; C0RNFs=(flNT/7.5) *CCRN 
FE=COR EF-EWFB0 
LOlFzFE 
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i 

F— — »-■ 

i 

| EUflER^i ./flNT*E WLO0E-OE 1 

< 

7 . 





EWC£R=3,S/flNT»*EWL0B£-DE3 




SNMERr4 ./ANT»SNL0BE-FG 


CALL NORflALf SNI1ER ] 




A88=AB*2 

ADE=0E/4 

R0E3=0E3/3.5 

ACORE=COREY7.S 

aculos=ewlobe/ant 

V4R I TEC 1 1 . 1 lS2 JR8B . ADE3 . AOE .AC0RE.flEWLO8.EWFT 

A6C=6C*2 

RFG=FG3/3 • 5 


AFC3=FG3/3.5 

AFG=FG/4 

AC0RNrC0RN/7«S 

ASNL08=SNLOBE/ANT 

WR I TEC tl . 1 152 ) ABC .AFG3 . AFG.ACORN . ASNLOB ,SNFT 


F0RttAT(6(X.rl4.6) ) 
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250 







251 




irtlX.GT.IXXl 


ENTER RFTER TRUE 
T PATH STRTEflENT 
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253 






I CALL ZERQir/URflTga lflRflfE) [ 


1 

' P 

{ 

7 _ . 

1 CALL ZERO! 4 . IEACC .tRRCC ) I 


r zz 


l 

Li_ 

| CALL ZER 0 ( 3 .EEWflER,lAWnER) j 

1 

[ zz 


J 

ZL 

I CALL ZEROES. IEWCER.IAWCER) [ 

1 

I 3 


_ J 

L 

[CALL ZEROES. INL 08 E.IBL 0 BEI j 

1 

! " 


l 

J 

7 


1 

1 " 


_ . J 


| CALL HER 0(4 . INflCC . IBftCC * | 

i 

L 


I 

( 

EgmEflmaiBamiaB 


z 

. i 

X 



IM:WWreiMimaaflSBH : ni 


IZ 


5 

L_ 

1 CALL ZER 0 ( 3 . IS IGft » 1 C IGA J J 


c : z 




I 00 TCI 76 T~^> - 


I psnej^spfl’] 

<3 

i 
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CO TO 256 








256 
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258 
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260 








261 















263 











264 














266 





B«ri 



lm] 
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268 
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1 SUBROUTINE NORnBL(X~i~l 



270 




OPTfl Nt 1 > .N«2KNI 3 J .1*1 4 ) ,NI 5 J > .NH > .WBJ .Nf 91 ,Nf JO) ,Nm ) .NU 2 
) .N( 13) .N( 14) -NU5) -NU6) ,N< 17) ,NUB) .Ntl9J .Mt 20 J ,N(2l ) .Hi 22) .N(23 
1 .N! 24 )/0 .3) .59,90,120 - 151 . 18 t .212.243.273 .304 .334 -0.31 .60 ,91 , 121 . 
152 « 182,213,244.274 .305,335/ 



[~END~I 
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DATA PLUS. MINUS. ASK. [C( l ) . IC( 2 ) . IC( 3 ) . 1C( 4 ) . I C( 5 ) . I C( 6 ) . IC( 7 ) . ICC 8 
). ICO) .ICC 10 1/Z40. Z60.ZSC.ZF0.ZF1 .ZF2.ZF3.ZF 4 .ZFS.2F6.ZF7 .ZF8.ZFS 



OPTA 0 1 V ( 1 ) . DI V( 2 ] . 0 1 V( 3 ) . DI V( 4 ) . D I V ( 5 ) . D I V ( 6 ) .01 VI 7 )/ I 000000 . 1000 
00.10000.1000.100.10.1/ 


AREA! I ) = FLUS 
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Lend J 
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274 










275 










I WRITE I 6 .81 1 I IBWTt JL) .ISTflt JL) »COULI .Cll JL ) .C2( JL) »C3( JL ) .C4TjU~l 

§i J 2 

I FORMAT ( 4X.P1.X.I2.5(X.E1S.6I ) 1 


I R£RP(5 .581 ) CS1JL) ,C6(JL) . C7 1 Jl 1 . C6( JL) 


681 i 



| FORtlAH 9X » 4 ( X . E l 5 . 8 1 J | 

581 \ 

2 . 

| FORMAT [ 8X . 4 ( X . E 1 2 -8) ) | 

< 

7 

| WRITE! 6.681 )C5(JL) >C6tJL) ,C7(JU .C81JL) | 

3 " " " > 36 \ 

Z .... 

| CONTINUE | 

i 

z 

| JM=JM+4 | 

2 ' > 35 5 

z 

| CONTINUE I 

5 

z_ 

| WRETE!6«500KKSTfl( II ) .11-1 .11) I 

500 1 


| FORMA T ( X . L 1 ( X . 1 2 ) ) | 

2 

7- ... 

<00 37 J" 1 .50 > - - - o 


| C INPUT SATELLITE CONSTANTS 1 

, 2 , 

I RERDt 5.82) KSflIOl J) .FREOI J) | 

7 
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277 










DO 490 L= I ,12 



278 








ENTER AFTER TRUE 
PATH STATEMENT 



28 ' 


E 












281 







CO TO 312 







282 





IF( EG0.FQ.f19) 


F 


ENTER AFTER TRUE 
PATH STATEMENT 


GO TO 310 







283 






Jl 


GO TO 325 


1L 



ENTER AFTER TRUE 
PATH STATEMENT 


GO TO 336J>t4t 



ENTER AFTER TRUE 
7 PATH STATEMENT 


GO TO 3g7~^>of 


ifl. 


ILL 



ENTER AFTER TRUE 
PATH STATEMENT 


GO TO 320 ^>-c4 


11 


£L 


! kt=To7 | 

l 


SI 


GO TO j0C> O^| 
Oi 


B3 


310_S 

mnj 


| GO TO 4 OS 


1 22 . 


SI 


B4 
3U, 4 


tefa 


I OO TO ~408 
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285 














286 















287 





WRITERS. 498 ISflT .RST ( l ) .CSTA.CANT . BOAT E. HOUR .MIN .SEC .SLZ( 4 ) .EWLOBE . 
EWRfiTE . EWRCC .EHHER .EHCER .SLQt 4 ) .SNIOBE .SNRflTE . SNflCC .SNflER .SNCER .SI 
Gfl .AST( 4 ) . If IT 


_1M 


FORHRTt X.I5.fll.I2.fll.X.[6.X.l2.l2>[2.fll.F6.3.X ,FS .4 . X .F4 .3 .X .B3 .A3 












i 


(441 


B=tCO( IhJtCH 111 C2( IM ) »B0 ) + ( C3t t(1 ] *BO*BO )ttC4UH 1 *R0**2 ) + ( C5 

( IM )«B0*»2 J+IC6I IM)*£E Jt(C7l in US INI flO«P I ) l+.ICQI lit ) «COS( BO»P l ) ) 



n= icon nucit in ubqi+i c2<mi«bo) + ( C3i in j*Ra«B0 hick in i*S[N(flO*F’U 
)+tc9( in )*cos( flo»p i j ) 
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55 


I RO=RC I 




I t>0 70 56 




[ EE-BO>»3 | 


00 TO 45 


— - >{ m! 


25 . 



4 4 4 . 

I EC=flQ««3 | 






293 





lFIflBStCCJ .GT. .08716) 


F 


ENTER AFTER TRUE 
PATH STATEMENT 


GO TO S8 
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295 






296 







297 





298 








0DATE = BDflTE+ 1 











300 










CALI ZER0(6.ASEC.1SEC) 


1 CALL PYROUYR. 

BDATE . YRflOOA ) | 

i 

1 — — — p) 

i 

| COLL ZEROC 1 .YRMOOR.flRnaOfi) | 




4 

WRITE ( 6.217 I SAT .STATIOtL I .ARflODfl. I OUR. I SEC- L COS .CANT . IflO 
WRITE! 6.217ISAT .STATIOtLl .ARMODA. 10UR. ISEC.flCOS .CRNT .100 
WRITE! 15.210 ISAT.STATIO! L ) . ARMOD A . I OUR . IS EC .LCOS . CAN T .[AO 
URITE! 15.210 ISAT.STATIO! LI .ARTIODA . IOUR . 1SEC .NCOS .CANT . IBO 
AC0S=AC/( (FREQ! fl 1/136 . )«ANT I 
BCOSrBC/! ! FREQ! tl 1/136 . )«ANT 1 
IAC0S=AC0S* 1 000000* -5 

I8C0S=BCOS*lOOOOOOt .5 


| CALL ZERar87iAC0S _ .LC0Sl | 

I d 
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IF(CANT.EQ.PO) 


ENTER AFTER TRUE 
PATH STATEMENT 


GO TO 353 
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ZQBf=EWLOBE 

RAT£=EWRflTE 

ZLOB=SNL0BE 

ZRAT=SNRRTE 


("GO TO 354 
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SUBROUTINE P YRD( NYR , JDRY .NT MOOR ) 
0 IflENSl ON NI24) 








JSUf1 = 0 

1 Yf?= L ORTE/ \ 0000 

IMG=C I DATE- ( [YRitlOOOO) )/lOO 

IDP= I OBTE- C 1YR« 10 000 1- (I MO* LOO) 

JSUM= JSUht I fl( IMO J+IDR 

isun=o 

ico=o 

j=i 


IR0A=36S 


I F C ICO 

. EQ .0^> ^ 

ENTER AFTER TRUE 
T RATH STATEMENT 

) PH 

L&0 TO 

4 

1— L ’ *■ -■ 

isufi=isuntiRon 
J=J» 1 


T 

p-""" ENTER AFTER TRUE 

T PATH STATEMENT 
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ENTER AFTER TRUE 
RATH STATEMENT 
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